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ABSTRACT 


This  project  was  deisgned  to  study  accurate,  non-empirical  theoretical 
techniques  which  permit  one  to  have  a predictive  theoretical  capability  for 
systems  of  interest  in  electronic  devices  of  a solid  state  nature.  Thus  the 
classes  of  materials  of  interest  include  insulators  (principally  oxides) , 
semiconductors,  and  some  metals.  Properties  of  bulk  crystalline  solids  are 
needed  as  are  properties  of  surfaces  and  interfaces.  We  desired  to  develop  a 
unified  technique  for  all  classes  of  systems. 

We  conclude  the  most  general  available  technique  is  the  Hartree-Fock 
Self-Consistent  Field  method.  In  this  case  for  most,  if  not  all  solids,  this 
is  best  implemented  by  means  of  a local-orbital  transformation.  Since  the 
Hartree-Fock  method  is  a mean-field  theory,  inclusion  of  correlation  corrections 
is  important  for  studies  of  excitation  properties  and  densities  of  states  but 
less  important  for  studies  of  ground  state  properties  (charge  densities,  Compton 
profiles,  equilibrium  lattice  spacings) . We  conclude  the  best  method  overall 
in  terms  of  economy  and  accuracy  is  the  electronic-polaron  model  in  its  im- 
proved form.  We  also  conclude  that  similar  techniques  are  viable  for  surface 
state  and  interface  state  studies. 
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I.  INTRODUCTION 


At  the  start  of  this  project,  the  available  techniques  for  deter- 
mining the  electronic  structure  of  crystalline  solids  were  essentially  limited 
to  empirical  techniques  or  highly  approximate  methods  employing  ill-defined 
approximations.  These  techniques  were  very  limiting  in  scope  in  that  to  be 
able  to  use  the  very  accurate  empirical  techniques  one  needed  to  have  a great 
deal  of  spectroscopic  data  available  for  the  system  of  interest.  This  res- 
triction clearly  limited  the  predictive  ability  of  such  theories.  On  the  other 
hand  the  approximate  techniques  based  upon  local  electronic  density  approximate 
operators  were  incapable  of  systematic  improvement  since  the  derivations  were 
ill  defined.  This  means  that  when  such  theories  work,  all  is  well,  but  when 
they  fail  there  is  no  real  remedy. 

There  was  a third  alternative  available  and  already  in  extensive 
use  in  atomic  and  molecular  physics.  This  method  is  that  of  Hartree-Fock. 
Preliminary  results  by  Lipari  and  Kunz  had  demonstrated  that  Hartree-Fock 
studies  were  possible  for  systems  such  as  solid  rare  gases  and  alkali-halides. 
They  further  demonstrated  that  the  inadequacies  of  the  Hartree-Fock  method  were 
capable  of  systematic  improvement  by  way  of  including  electron  screening  effects. 
In  general  the  work  of  Lipari  and  Kunz  was  a substantial  improvement  on  the 
local-density  methods  (now  renamed  the  xa  method  by  some  users) . This  improve- 
ment is  illustrated  here  for  a typical  case,  KC1.  Two  quantities  of  extreme 
interest  in  any  system  are  the  magnitude  of  the  band  gap  and  the  width  of  the 
valence  band.  In  the  case  of  KC1  the  experimental  band  gap  is  8. A eV  and  the 
valence  width  is  3.0  eV.  The  most  accurate  available  xa  results  which  are  due 
to  DeCicco  find  a band  gap  of  6.2  eV  and  a valence  width  of  0.67  eV.  The 
Hartree-Fock  case  finds  a band  gap  of  13.8  eV  and  a valence  width  of  3. A eV. 

After  correcting  the  Hartree-Fock  case  for  correlation  effects,  we  find  a 
band  gap  of  9.2  eV  and  a valence  width  of  2.9  eV.  In  both  cases  the  error  is 
less  than  10%  for  the  corrected  Hartree-Fock  case  and  as  much  as  500%  for  the 
xa  system.  In  addition  we  find  the  corrected  Hartree-Fock  method  accurately 
reproduces  trends  from  system  to  system.  Typically  then  these  Hartree-Fock 
corrected  results  are  in  fact  more  accurate  than  those  quoted  for  KC1. 


II.  GENERAL  EXPERIMENTAL  CONSIDERATIONS 


The  study  of  optical  absorption  edges  in  insulators  has  consumed  a 
considerable  amount  of  effort  in  the  past  10  years.  By  this  statement,  the 
author  includes  soft  or  even  hard  x-ray  edges  in  the  class  of  optical  ab- 
sorption edges.  Of  course,  in  the  recent  few  years  most  of  the  effort  has 
been  concentrated  on  the  soft  x-ray  region  of  the  spectrum,  a region  which, 
until  the  advent  of  convenient  synchrotron  radiation  sources,  was  most  diffi- 
cult to  study. 

Most  of  the  experimental  work  has  concentrated  upon  ordinary  op- 
tical absorption  experiments.  Especially  in  the  soft  x-ray  region  there  has 
been  an  absence  of  any  experiments  using  modulation  spectroscopy  techniques 
or  two  quantum  absorption  studies,  which  permit  one  to  identify  to  some  ex- 
tent the  symmetry  and  the  character  of  the  transitions  in  question.  Thus, 
for  example,  in  the  soft  x-ray  region  it  has  not  been  possible  to  unequivo- 
cably  establish  the  presence  or  absence  of  excitonic  transitions  such  as 
dominate  the  optical  absorption  spectrum  of  an  insulator  in  the  region  of 
fundamental  optical  absorption. 

Another  class  of  interesting  and  useful  experiments  which  are 
performed  are  ESCA  (Electron  Spectroscopy  for  Chemical  Analysis)  or  the 
x-ray  photo  emission  (XPE)  experiments.  In  this  type  of  experiment  the 
sample  absorbs  an  energetic  photon  and  the  kinetic  energy  distribution  of 
the  emitted  electrons  is  analyzed.  In  such  an  experiment  when  subject  to 
proper  analysis,  the  energy  distribution  of  the  initial  states  may  be  de- 
duced and  also  sometimes  that  of  the  conduction  states,  provided  they  over- 
lie  the  ionization  continuum.  The  essential  differences  between  an  ESCA 
or  an  XPE  measurement  involves  the  type  of  photon  source  and  is  of  no  con- 
cern for  the  present  time. 

Consider  the  following  example.  The  crystal  in  question  is  LiF 
and  we  may  wish  to  know  experimentally  the  energy  separation  between  say  the 
LiK-shell  (Is  shell)  and  the  Fluorine  L^  -shell  (2p  shell  or  the  valence 
band).  One  could  imagine  measuring  this  in  two  or  tljiree  ways.  In  the,, first 
of  them,  which  has  been  performed  in  part  by  Stephan—  and  by  Sonntag,— ' one 
measures  the  onset  of  optical  absorption  from  the  F L ^^.-shell  and  also 
from  the  LiK-shell.  One  might  then  interpret  the  difference  in  these  ener- 
gies as  being  the  energy  difference  between  the  K-shell  and  the  L -shell. 

In  the  present  case,  the  K-shell  absorption  begins  at  about  54  eV  while  the 
L ^ -shell  absorption  begins  at  about  12  eV  yielding  a difference  of  42  eV 
for’tne  splitting  between  the  K-shell  and  the  L ^^-shell.  The  alternate 
is  to  study  t^e  XPE  spectra  of  these  shells  as  na§  recently  been  done  by 
Gudat,  et  al.—  In  this  case,  one  finds  that  the  splitting  of  the  K-shell 
and  the  L^.  j^-shell  is  50  eV.  Clearly  there  is  some  difference  here.  In 
addition,  oAe  might  also  do  a direct  measurement  by  partly  depopulating  the 
K-shell  and  then  measuring  the  energy  of  photons  emitted  as  electrons  from 
the  Lj.j  j -shell  fall  into  the  K-shell.  This  measurement  would  in  principle 
yield  a’still  different  result.  The  difference  between  these  results  is  not, 
in  the  author's  opinion,  due  to  any  lack  of  experimental  precision,  but  is  a 
direct  measure  of  the  strength  of  electron-hole  or  excitonic  interaction  in 
these  crystals. 


Here  it  is  known  from  valence  band  excitations  that  the  strength 
of  the  excitonic  effecL  (binding  energy)  in  this  region  of  the  spectrum  is 
about  .5  to  2 eV.  This  shall  be  shown  to  mean,  in  effect,  that  in  the  soft 
x-ray  region  of  the  spectrum,  the  strength  of  such  exciton  effects  is  about 
10  eV  or  hence  about  the  first  10  eV  of  the  soft  x-ray  spectrum  must  be  due 
to  either  localized  atomic-like  excitations  or  excitons. 

Tiie  the*  ri-tical  tuition  has  been  much  more  fragmentary.  It  was 
first  observed  by  Hr own  e»  _al . that  the  shapes  of  the  soft  x-ray  absorption 
spectra  bore  great  iv.-,,  : many  but  not  all  cases  to  the  density  ol 

states  ot  tin  •>nd  ; t i . . This  idea  has  been  extended  by  the^present 

author  for  the  uik  . i-haii  , by  Rtissle^.for  the  rare  gas  solids,—  and 
by  the  author  and  Mi  kish  i.i  thes.  .uses.-  Most  recently,  Menzel  et  al . 
have  advanced  the  idea  of  1 ,,nd  structure  for  I.iF  being  entirely  responsible 
for  the  optical  properties  (in  b th  fundamental  and  I.iK-shell  region).— 

However,  as  we  see  from  tiie  ; receding  analysis  of  data  for  LiF,  the  theory 
of  Menzel,  etal ■ becomes  impossible  since  if  band  theory  were  correct,  the 
ESCA  and  absorption  data  would  agree.  Analysis  of  a type  like  that  used  in 
this  article  to  sort  exciton  from  band  effects  using  experimental  data  rather 
than  theory  was  done  for  RbCl  by  Scheifley  and  Brown.— 

Alternate  studies  of  soft  x-ray  spectra  in  insulators,  and  par- 
ticularly those  intent  upon  pre^ijl^ng  absorption  peak  positions  have  beej^  ^ , 

either  of  a deep  impurity  type  or  of  the  more  usual  excitonic  type. — 1 — 

In  such  calculations  or  theories,  the  shape  of  absorption  spectra  is  usually 
secondary  to  the  question  of  line  positions.  In  addition,  there  have  been 
some  exciton  theories^ysed  upon  critical  point  type  analysis  advanced  by 
Onodera  and  Toyozawa  — in  which  splittings  of  exciton  lines  formed  from  band 
states  at  critical  points  are  studied  for  both  electrostatic  and  spin-orbit 
interactions.  It  shall  be  seen  that  for  such  crystals  as  considered  in  the 
present  case  the  strength  of  the  electron-hole  interaction  and  the  localiza- 
tion of  the  low  lying  exciton  excited  states  are  such  that  critical  point 
analysis  becomes  pointless  in  many  instances. 

Finally,  in  this  run-down  of  pertinent  preliminary  results,  the 
author  refers  to  tba  results  of  the  calculations  using  the  operator  0A0  of 
Collins  and  Kunz. — - In  this,  the  strength  of  the  coulomb-hole  interaction 

was  studied  for  atomic  excitations.  It  was  found,  in  general,  that  these 
effects  were  substantial.  It  was  also  found  by  a comparison  of  these  results 
to  experiment  that  simple  atomic  relaxation  or  polarization  effects  were  ex- 
ceptionally large  and,  in  fact  for  many  core  excitations,  these  relaxations 
far  exceeded  the  strength  of  the  electron-hole  interaction  for  such  states. 

It  was  also  seen  then  that  a simple  dielectric  theory  added  to  the  electron- 
hole  interaction  in  order  to  describe  the  polarization  relaxation  would  in- 
volve a dielectric  constant  less  than  unity  if  sucii  a description  were  to 
succeed.  No  one  seems  anxious  to  use  such  a dielectric  constant.  This  in- 
dicates that  simple,  effective  mass  type  theories  for  core  exciton  formation 
is  pointless  in  most,  or  at  least  many,  cases. 

J.n  the  present  report,  in  Section  III  we  consider  general  theoret- 
ical considerations.  The  author  examines  this  both  from  the  standpoing  of 
ordinary  energy  hand  heory  and  also  from  the  viewpoint  of  a Heitler-London 
theory.  In  Section  IV,  the  author  takes  the  general  considerations  of  Sec- 
tion III  and  rei  ; > them  to  solvable  models  which  are  used  in  the  present 


system  of  attack.  In  Section  V,  the  author  provides  a series  of  atomic 
system  calculations  which  illustrate  the  theoretical  features  of  the  present 
ideas.  In  Section  V,  a number  of  solid  state  calculations  are  performed  in 
which  a quantitative  value  is  placed  on  a variety  of  pertinent  effects  as 
well  as  experimental  quantities.  Throughout  this  report,  the  author  neglects 
lattice  relaxation  or  lattice  dynamical  effects.  It  is  not,  however,  to  be 
inferred  from  this  neglect  that  the  author  considers  such  effects  unimportant, 
but  rather  they  serve  simply  to  modify  the  dominant  electronic  effects  dis- 
cussed in  this  paper  by  amounts  which  are  comparable  in  size  to  the  errors 
introduced  by  the  approximation  to  the  larger  electronic  terms. 


III.  GENERAL  THEORETICAL  CONSIDERATIONS 


In  this  section  the  author  constructs  a brief  theoretical  review 
from  rather  general  points  of  view.  On  the  whole  such  viewpoints  are  not  to 
be  regarded  as  new  but  are,  nonetheless,  not  so  completely  assimilated  by 
the  scientist  as  to  make  such  a review  superfluous.  In  the  later  stages  of 
this  work  it  shall  be  advantageous  to  adopt  different  viewpoints  for  pur- 
poses of  economy  in  computing  different  contributions.  Therefore,  it  is  of 
some  use  here  to  study  the  question  of  band  theory  and  exciton  formation 
from  both  the  molecular  orbital  (Bloch  orbital)  and  from  the  Heitler-London 
(or  general  valence  bond)  point  of  view.  There  are  any  number  of  places 
where  the  information  conveyed  here  is  .available  in  greater  detail.  Perhaps 
the  most  accessible  is  that  of  Knox. — 

In  our  method  we  view  the  solid  as  being  described  in  the  first 
approximation  by  a single  Slater  determinant  of  one-electron  orbitals.  If 
these  orbitals  are  suitably  chosen  via  the  variational  theorem,  subject  to 
constraints  of  orthonormality,  one  may  obtain  the  one  electron  orbitals  as 
being  given  by  the  canonical  unrestricted  Hartree-Fock  formalism.  In  this 
case,  the  one  electron  eigenstates  are  symmetry  adapted  (i.e.  they  have  the 
periodicity  of  the  lattice)  and  generally  each  one  spans  all  the  infinite 
periodic  lattice.  It  turns  out  that  these  orbitals  are  a convenient  set  for 
describing  properties  such  as  conductivity  but  much  less  convenient  for 
describing  localized  phenomena.  If  the  orbitals  are  chosen  such  that, 

F(p)  4> ± (x)  = t^^x),  (1) 

where  F(p)  is  the  Fock  operator  for  the  system  then  one  has 

f cp  ^ (x)  (x)  dr  = 6 . (2) 

Now  one  allows  x to  stand  for  both  spatial  dependence  r and  spin  dependence 
s of  the  orbitals  and  /dr  includes  summation  over  spin  coordinates.  One 
recognizes  that  some  solutions  to  Eq.  (1)  define  orbitals  which  have  elec- 
trons in  them  (occupied  orbitals)  in  the  ground  state  as  well  as  unoccupied 
states  (virtual  orbitals).  I assume  here  N electrons  in  the  system  and  use 

the  notations  i,  j <_  N > a,  b with  the  i,  j labeling 

occupied  orbitals  and  the  a,  b being  virtual  orbitals. 


In  terras  of  this  notation  the  first  order  density  matrix  is  defined 


P(x.x')  = 


I 4>i (x)  <j>  (x') 


(3) 


i=l 


From  this  one  has  some  immediate  physical,  consequences  which  are  summed  up 
in  Koopmans'  theorem.  These  are,  if  all  the  orbitals  and  are  chosen 
from  a self  consistent  solution  to  Eq.  (1)  for  the  ground  state  then  in  this 
frozen  orbital  limit  the  eigenvalues  e represent  the  energy  needed  to  remove 
the  electron  in  orbital  k from  the  system.  That  is,  one  goes  from  an  N to  an 
N-l  body  system.  The  eigenvalue  e represents  the  energy  needed  to  add  an 


electron  to  the  system,  putting  it  in  an  orbital  a. 
to  an  N+l  body  system. 


Thus  one  goes  from  an  N 


In  much  usual  solid  state  physics,  one  also  identifies  the  energy 
difference  e - e . as  being  the  amount  of  energy  needed  to  excite  an  electron 
from  state  i to  state  a.  This  identification  is  only  justified  if  the  orbi- 
tals span  all  of  an  infinite  periodic  lattice  whereby  the  effect  of  changing 
the  number  of  particles  on  the  potential  is  total  negligible.  The  abovjg^ 
descriptions  constitute  what  is  generally  regarded  ws  Koopman's  theorem. — 

The  consequence  of  this  is  to  say  that  the  usual  Hartree-Fock  virtual  orbitals 
do  not  see  any  electron-hole  interaction.  It  has  been  recently  shown  that 
the  absence  of  electron-hole  interaction  in  a simple  Hartree-Fock  system  such 
as  given  by  Eq . (1)  is  a consequence  of  an  arbitrary  choice  for  the  virtual 
manifold  rather  than  as  a consequence  of  Hartree-Fock  theory  and  there  is  a 
proper  choice  of  F which  permits  one  to  obtain  virtual  states  which  see  elec- 
tron-hole interactions,  possesses  a real  Koopmans'  theorem  for  j^yitation 
even  for  localized  states,  and  satisfy  a variational  principle. — 


One  recognizes  that  the  Hartree-Fock  system  so  far  described, 
possesses  several  defects  even  if  electron-hole  interaction  is  properly 
included.  These  defects  are,  of  course,  when  one  uses  Koopmans'  theorem, 
one  neglects  the  relaxation  of  the  other  orbitals  and  hence  the  associated 
energy  changes  of  the  rest  of  the  system.  This  correction  is  termed  a re- 
laxation correction  and  stems  solely  from  not  performing  self-consistent  cal- 
culations on  both  ground  and  excited  state  or  alternately  on  both  ground  and 
ionized  state.  The  second  defect  is  that  all  dynamic  correlations  between 
electrons  are  neglected.  The  correlation  and  relaxation  corrections  are 
together  taken  to  be  the  self-energy  correction.  It  is  normal  for  extended 
systems  then  to  solve  beyond  Hartree-Fock  by  sq^ying  Dyson's  equation,  to 

which  Hartree-Fock  is  the  first  approximation.—  r - J ~ ~ 

energy  of  the  electron  in  state  i,  one  has 


Thus  if  e.  is  the  actual 

l 


6i  = Ei  + h 


(A) 


l . bei 


ng  the  self  energy. 


IV. 


DEVELOPMENT  OF  SOLVABLE  MODELS 


In  this  section,  the  author  will  derive  a series  of  reasonably 
simple  solvable  models  for  the  phenomena  of  optical  absorption  and  for  photo- 
emission experiments.  In  this  case,  development  is  made  starting  with  both 
the  band  theoretical  model  (molecular  orbitals)  and  the  Heitler-London 
formalism  (valence  bond  model).  Jljia  author  will,  in  the  case  of  correlation, 
rely  heavily  on  previous  efforts. — 


IV-1.  CORRELATION  CORRECTIONS 


One  begins  with  the  molecular  orbital  model  and  includes  correla- 
tion as  required.  Traditionally  this  is  done  in  two  ways.  The  first  way 
which  is  termecJ^Screened-Exchange  plus  coulomb-hole  was  give^yseful  informa- 
tion by  Hedin  — and  was  used  first  on  a calculation  for  Si. — This  model 

was  later  ex^et^e^ys  an  adjunct  to  a Hartree-Fock  formalism  by  Lipari  and 
the  author.  - 

The  second  model  used  is  that  of  the  electronic  polar^^(EPM)  which 
was  introduced  for  the  case  of  conduction  electrons  by  Toyozawa  — and  was 
given  a^lyndamental  derivation  and  extended  to  the  case  of  hgles  by  the  * ^ 
author. — In  this  model,  the  correlation  contribution  to  £ , called  £ (k) 

is  found  to  be  for  conduction  electrons 
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In  this  case  the  summation  on  q is  over  the  first  Brillouin  zone.  For  elec- 
trons the  b summation  extends  over  all  conduction  levels  and  for  holds  the 
m summation  is  over  the  occupied  space.  V is  the  crystal  volume,  e the 
electron  charg|^  the  optical  dielectric  constant,  is  the  Wannier  func- 
tion for  the  i band,-lTW  is  the  quantum  of  the  polarization  field  (in 
this  instance,  the  longitudinal  exciton  field)  and  is  assumed  dispersionless. 
This  model  is  valid  in  so  far  as  the  width  of  the  band  being  correlated  is 
less  than  . This  method  of  correlation  may  be  generalized  and  even  ex- 

tended to  the  case  of  metallic  systems. — 
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It  is  clear  that  it  is  also  possible  to  develop  a definition  of 
the  energy  band  model  from  a valence  bond  or  Heitler-London  point  of  view. 

To  the  best  knowledge  of  the  author,  no  such  band  calculations  have  been 
carried  out  at  the  present.  It  is  noted  that  the  structure  of  the  energy 
band  Hamiltonian  as  a function  of  wave  vector  here  is  similar  to  that  for 
the  molecular  orbital  case.  Furthermore,  in  the  unrelaxed  orbital  limit 
one  would  expect  for  insulators  that  the  energy  bands  would  be  quantita- 
tively as  well  as  qualitatively  similar  to  the  molecular  orbital  case. 
Correlation  corrections  based  upon  the  Heitler-London  model  are  not  fully 
developed.  Theory  is,  however,  an  available  limiting  theory  of  such  a model 
due  to  Fowler. — In  this  model  (a  semi-classical  one),  the  electron  charge 
is  situated  at  either  a cation  or  anion  (or  atomic)  site  and  the  atom  or 
ion  at  this  site  is  neglected.  The  remainder  of  the  crystal  is  then  treated 
as  if  it  were  consisting  of  a collection  of  non-overlapping  polarizable  ions 
(or  atoms).  The  polarization  of  this  assemblage  is  computed,  as  is  the 
energy  associated  with  this  polarization^  This  energy  is  then  identified 
with  2 • Clearly  this  model  neglects  k dependence.  It  does,  however,  dis- 

tinguish between  events  on  non-equivalent  lattice  sites.  Most  importantly, 
this  model  clearly  and  unequivocably  neglects  the  effects  of  relaxation  on 
the  ion  or  atom  at  the  origin,  and,  most  importantly,  this  model  is  seen  to 
be  equivalent  to  the  electronic  polaron  model  if  one  takes  a static  limit  of 
the  electronic  polaron  (i.e.,  that  limit  in  which  the  bands  are  dispersion- 
less) . 


It  is  also  necessary  to  make  a brief  comment  about  the  agreement 

found  among  the  varioug  correlation  models.  At  this  point,  there  are  a number 

of  calculations  of  I.  , using  all  three  models  for  the  same  crystal.  These 
^ ic  ^ J 

models,  firstly,  are  in  excellent  qualitative  agreement.  Secondly,  for  the 

number  of  crystals  for  which  all  three  types  of  results  are  available  and 

computed  in  a seemingly  reliable  manner,  one  finds  that  roughly  serves 

to  lower  the  band  gaps  by  about  4.0  + 1.0  eV  and  that  the  agreement  on  this 

quantity  among  the  models  is  of  the  order  of  10%.  For  most  practical  purposes 

this  level  of  agreement  is  adequate. 

It  is  necessary  at  this  point  to  say  a word  about  the  presumed 
local  states  which  occur  as  virtual  levels  in  the  Heitler-London  scheme. 

The  virtual  orbitals,  if  the  e matrix  for  the  virtual  states  is  to  be  dia- 
gonal, are  just  the  ordinary  virtual  Bloch  functions.  This  is  undesirable 
for  a localized  description  and  unnecessary.  The  virtual  levels  are  ar- 
bitrary. Let  one  define 

0 = 1 - p (9) 

a1_f  = 0A0  , (10) 

then  let  one  solve 

{ F +p Up  + OAO  } 4»A.  = eA1<f>Ai  . (11) 

Here  both  U and  A are  arbitrary  Hermitian  operators.  However,  if  A is 
chosen  to  be  attractive  and  to  interrupt  the  periodicity  of  the  lattice,  one 
can  obtain  localized  virtual  states  from  Eq . (11).  Some  particularly  useful 
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choices  based  upon  physical  considerations,  are  given  by  Kunz  and 

Collins. — 1 — One  may  consider  Eq.  (11)  to  be  the  generalized  Hartree-Fock 

equation. 


IV-2 . RELAXATION  MODELS 


The  basic  problem  of  relaxation  can  be  handled,  in  principle,  from 
the  viewpoint  of  the  molecular  orbital  approach.  In  the  case  of  atoms  or 
molecules,  it  is  standard  to  include  relaxation  corrections  totally  by  the 
simple  expedient  of  solving  for  the  ground  and  the  excited  or  ionized  states 
of  the  system  in  fully  self-consistent  calculations.  In  such  calculations 
then  the  differences  in  total  energies  include  not  only  Koopmans'  terms  but 
also  complete  relaxation  information.  In  addition,  for  the  case  of  excita- 
tion such  a calculation  also  includes  the  electron  hole  interaction  in  a 
manner  which  is  correct,  save  for  the  inclusion  of  correlation  corrections. 

In  the  cases  of  deep  core  states  especially,  correlation  corrections  have 
been  seen  to  be  minor  compared  to  other  effects  and  the  answer  based  upon  the 
total  energy  dif^gyence  of  self-consistent  calculations  has  been  capable  of 
great  precision. — In  the  case  of  the  infinite  solid  with  its  infinite  total 
energy  such  a simple  and  direct  calculation  has  thus  far  been  impractical. 

Of  course,  such  difficulties  as  infinities  may  be  avoided  in  the  direct  ap- 
proach with  molecular  orbitals  by  using  a perturbation  expansion  in  terms  of 
unrelaxed  orbitals  and  thereby  directly  cancel  the  infinities  prior  to  cal- 
culation. To  date  no  one  has  actually  performed  such  a calculation  for  any 
real  solid. 


A more  simple  and  direct  method  for  constructing  the  effects  of 
relaxation  is  possible  if  one  considers  the  Heitler-London  model.  In  what 
follows,  the  author  relaxes  the  restrictions  that  the  orbitals  used  in  the 
excited  state  or  for  the  ionized  states  be  obtained  from  solving  self- 
consistently  Eq.  (11)  for  the  orbitals.  Instead  the  author  assumes  that 
Eq.  (11)  is  solved  self-consistently  for  the  ground  state,  as  is  true  for  a 
number  of  solids  now.  One  proceeds  by  permitting  the  orbitals  in  the  wave 
functions  given  by  Eq.  (11)  to  be  chosen  variationally  by  minimizing  the 
energy  of  the  Hamiltonian  with  respect  to  these  wave  functions. 

To  do  this,  one  proceeds  as  follows,  which  is  very  similar  to  the 
derivation  of  Ijl^  Multi-Configurational  Self-Consistent-I’ield  Equations  by 
T.  L.  Gilbert,—  except  that  in  the  present  case  the  coefficients  of  the 
single  Slater  determinant  (called  patterns  by  Gilbert)  are  constrained  by 
symmetry  considerations  within  a multiplicative  factor  of  modulus  unity. 

The  total  energy  is  represented  as 

E = < ip  |>()  ij;  > + < fp  > + < < ( gy ) >>  (12) 

where,  in  keeping  with  the  utual  usage  in  this  type  of  theory,  one  has 

P = M <W+£j_1  (1 J) 

y ) < <I4+  > (14) 

M-2 
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There  are  M electrons  and  p and  y are  the  reduced  first  and  second  order 
density  operators.  In  proceeding,  we  could  follow  Gilbert  in  not  constrain- 
ing the  orbitals  to  be  orthogonal,  but  this  complexity  is  not  needed  for  the 
present  case.  If  orthogonality  is  desired  the  correct  variational  equations 
are  simply 


r N 

E - I 


< Ai j Bj>X 


Ai,Bj=l 


]/6*Ai+ 


= 0 , 


r-  N 

..E  " l 


AiBj=l 


< Ai'  Bj>XAiBj  :/5*Ai  = 0 


The  evaluation  of  these  variations  yields  the  equations  for  the  orbitals  $ 


which  become 


" l * * = 0 , 

r -i  4.1  Bj  EjAi 


F^Ai*  " l XBjAi  *Bj*  = ° 


Here  the  orbital  operator  F is  found  to  be 


F = fp  + 2<gy  > , 


fp  = I f p(x,x")fi(x",x')dx" 


<sir>  - ‘•JJJ  gij(x1xxl  x2  (xx  x2  .XjX)  dx  dx,  dXj 


Finally,  the  author  also  specifie^that  here  operators  are  ^r^at^d  as  local 
ke^n^ls,  j^haj^  is  for  example,  f^(xx')  = f ^ 6(x-x')  and  . (x,x ' ,x^ ,x  ' ) = 

5 (x-x^) 6 (x' -x  ' ) g . . . Equations  of  this  nature  of  complexity  are  routinely 
solveci  in  calculations  for  simple  atoms  and  molecules.  To  date,  implementa- 
tion of  a scheme  such  as  outlined  above  has  not  been  feasible  for  the  general 
solid  state  case. 

What  is  very  beneficial  from  the  standpoint  of  our  present  con- 
siderations are  the  specific  approximation  schemes  which  one  might  devise  from 
these  considerations  and  it  is  for  this  reason  we  explicitly  include  the 
preceding  discussion  on  Gilbert's  work.  Therefore,  the  models  being  employed 
are  at  least  correct  in  some  realistic  limit,  which,  in  part,  justifies  the 
inclusion  of  this  material.  This  limit  is  one  in  which  one  assumes  that  the 
atoms  or  ions  comprising  the  system  overlap  slightly  or  not  at  all.  (Such  a 
condition  is  often  met  in  the  alkali-halides  or  solid  rare  gases,  in  which  the 
ground  state  local  orbitals  overlap  by  about  0.05  or  less).  In  such  a non- 
overlapping limit,  the  energy  expectation  value  of  the  wave  function  (11) 
is  about  the  same  as  for  the  symmetry-adapted  wave  function.  Therefore,  one 
need  not  prefer  at  this  level  one  wave  function  from  the  other  in  calculating 
energy  differences. 

In  this  limit  consider  first  the  case  of  optical  excitation.  Here 
one  has  the  atom  at  site  A being  excited  and  the  other  atoms  remain  in  their 
ground  state.  The  ground  state  of  the  other  atoms  need  not  be  the  same  as 
when  the  system  as  a whole  were  in  the  ground  state.  However,  when  one  ex- 
cites the  atom  at  site  A this  atom  doesn't  alter  its  state  of  charge,  since 
we  consider  here  formation  of  excitons,  rather  than  excitations  which  ionize 
the  atom  in  question.  If  the  atom  is  ionized  relaxation  effects  due  to  the 
surroundings  will  increase  the  values  of  the  relaxation  energies  given  in  this 
paper.  Therefore,  in  the  small  overlap  region,  one  may  anticipate  that  the 
polarization  of  the  surrounding  atom  is  weak  compared  to  that  of  the  atom  at 
site  A.  Therefore,  if  all  atoms  other  than  that  at  site  A are  fixed  in  their 
system  ground  state  configuration,  that  at  site  A must  be  solved  for  in  the 
ground  state  and  the  excited  state  configuration  self-consistently . The  total 
energy  difference  then  represents  the  excitation  energy  and,  by  construction, 
contains  the  following  contributions,  that  due  to  Koopmans ' theorem,  Hartree- 
Fock  relaxation  and  electron-hole,  but  no  correlation,  since  this  limit  is 
clearly  a single  determinant.  One  may  subtract  the  Hartree-Fock  contribution 
and  obtain  the  magnitude  of  the  relaxation  plus  electron-hole  interaction 
from  relaxation.  There  are  two  ways  to  do  this.  The  first  is  to  solve  for 
the  excited  state  at  A in  the  canonical  Hartree-Fock  limit  aijig  ^.han  in  the 
0A0  limit,  choosing  A to  properly  represent  the  hole  formed.— — This  is 
a simple  procedure  to  implement  and  has  been  done  here  extensively.  From 
this  evaluation  of  electron-hole  interaction  one  then  subtracts  from  the  ef- 
fects of  relaxation  plus  electron-hole  to  obtain  the  effects  of  relaxation 
alone.  The  second  procedure  is  to  use  the  ionization  processes  from  (11). 
and,  in  the  vanishing  overlap  limit,  calculate  self-consistently  the  energy 
to  ionj^u  the  atom  at  A self-consistently  in  the  field  of  the  fixed  other 
atoms. — From  a comparison  of  the  Hartree-Fock  eigenvalue  to  the  total 

energy  one  has  directly.  That  is,  one  has 


in 


(22) 


This  has  been  tested  for  the  rare  gas  systems:  He,  Ne,  Ar.  It  is  concluded 
directly  for  the  rare  gas  systems  that  the  relaxation  phenomena  is  strictly 
a local  atomic  effect.  Due  to  their  cost  and  complexity,  similar  calcula- 
tions were  not  made  for  the  alkali-halides.  However,  one  may  infer  a similar 
result  from  available  information.  Although  the  alkali-halides  overlap  more 
strongly  than  the  solid  rare  gases  (S  < 0.05  ) the  overlap  is  still  quite 
small  compared  to  unity.  It  is  also  well  known  that  the  cohesive  energy  of 
the  alkali  halides  is  essentially  accounted  for  by  the  Madelung  energy  term 
with  the  detailed  electron  charge  effects  being  quite  insignificant — by 
comparison.  Since  the  Madelung  contribution  is  similar  in  the  relaxed  and 
unrelaxed  state  and  since  the  relaxed  state  is  less  diffuse  than  the  un- 
relaxed state  so  that  the  detailed  electronic  structure  is  even  less  impor- 
tant, one  argues  that  here  too  the  greatest  part  of  the  relaxation  energy 
is  due  to  the  central  cell  atom  (or  ion)  relaxation.  It  is  true  in  the  ionic 
crystal  case  the  wave  function  of  the  atoms  around  the  central  cell  atoms  are 
also  distorted  by  having  dipoles  induced  when  the  state  of  ionization  of 
central  cell  atom  changes . .^However  such  effects  ajj^  jg.part  at  least  included 
in  either  a Mott-Littleton — or  electron-polaron  — 1 — model.  Finally  it 
is  also  worth  noting  that  even  though  the  relaxation  model  is  derived  from 
a Heitler-London  model  and  the  correlation  model  from  a Bloch  picture  that 
both  effects  a^gj^an  here  are  distinct  and  contributions  are  not  being 
counted  twice. — - — 


IV- 3 ELECTRON-HOLE  INTERACTION 


The  highly  approximate  version  of  the  self-consistent  Heitler- 
London  model  as  described  in  Section  3.2  provides  one  with  electron-hole 
interaction  strengths.  In  fact,  in  the  limit  described  which  is  appropriate 
for  either  an  "impurity"  state,  or  a description  akin  to  such  a state,  or  for 
the  more  normal  symmetry-adapted  state,  one  finds  the  amount  by  which  the 
electron-hole  paired  state  (called  hereafter  an  exciton  whether  it  be  an 
"impurity  state"  or  a true  crystal  stationary  state)  lies  below  the  continuum 
or  band-like  state.  This  energy  difference  can  be  expressed  in  terms  of  the 
0A0  formalism  as  follows.  Let  i refer  to  the  hole  and  a to  the  electron. 

Let  e 1 be  the  OAO  energy  of  electron  a in  the  presence  of  hole  i,  and  let  t 
be  the  canonical  Hartree-Fock  energy  of  orbital  a.  The  electron  hole  inter- 


action strength  is  then  found  to  be 


K.  = e 
la  a 


In  the  simplest  limit  one  would  predict  that  the  greatest  amount 
by  which  the  exciton  line  would  lie  below  the  band  state  is  just  . This 
limit  clearly  neglects  any  dispersion  in  the  energy  levels.  One  might,  in 
principle,  solve  for  the  exciton  state  in  order  to  correct  this  deficiency. 
Such  a calculation  is  not  currently  practical,  although  very  desirable. 

There  are  other  limits  which  permit  one  to  take  into  account  the  band  shape. 


The  most  simple  model  is  the  effective  mass  model.  In  this  limit, 
the  exciton's  electron  is  assumed  to  be  in  a very  diffuse  orbit  so  that  the 
effective  electron-hole  interaction  looks  like  that  of  a point  charge.  This 
is  a hydrogenic  model.  Here  one  finds  E^,  the  binding  energy  below  a band 
extremum,  is 


E 
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(24) 


In  Eq.  (24),  m is  the  electron-hole  reduced  mass,  e is  an  appropriate  dielec- 
tric constant  (>  1)  and  n the  exciton  principal  quantum  number.  In  the  ionic 
system  or  the  solid  rare  gases  the  radius  of  the  principal  exciton  (n=l) 
is  too  small  for  the  assumption  leading  to  (24)  to  be  valid  and  the  author 
never  uses  the  effective  mass  theory  for  computing  n=l  exciton  states  in  this 
paper.  However,  the  higher  states  are  often  much  more  diffuse  and  (24)  be- 
comes tenable.  One  result  is  to  use  Eq.  (24)  to  assign  a limit  to  the  posi- 
tion of  n=2  levels  (s  or  p character)  as  being  simply  25%  of  the  binding 
energy  for  the  n=l  level  in  the  effective  mass  limit.  Thus  in  the  calcula- 
tions, one  may  assign  the  lower  limit  (the  state  would  be  raised  in  energy 
by  dielectric  screening  far  more  than  it  is  lowered  by  an  effective  mass  for 
the  electron  less  than  an  electron  mass)  to  the  n=2  line  as  being  0.25 
as  given  in  Eq.  (23). 
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In  these  crystals,  the  effective  mass  idea  is  quite  simple  to  apply 
to  the  case  of  core  state  excitations.  The  effective  mass  of  the  core  holes 
is  infinite  (hence  isotropic).  The  conduction  band  minima  are  T states  and 
hence  also  pertectly  isotropic.  The  author  notes  that  the  effective  masses 
actually  calculated  in  several  different  directions  in  k space  for  the  energy 
bands  used  here  were  found  to  be  isotropic  as  the  theory  requires.  In  this 
article  the  effective  mass  approximation  is  only  applied  to  formation  of 
n=2,  £=1  excitons  (p-excitons)  obtained  by  exciting  core  electrons.  It  is 
believed  this  is  reasonable  here  in  that  the  p-excitons  are  far  more  diffuse 
in  r space  than  are  the  n=l , £=0,  (s-excitons)  which  we  compute  in  the  one- 
hand  one-site  model  discussed  below,  and  hence  satisfy  more  nearly  the  cri- 
terion for  validity  of  effective  mass  theory.  It  is  also  noted  that  due  to 
the  essential  nature  of  the  one-band  one-site  model,  only  a single  bound  state 
is  found  for  any  of  the  cases  considered  here  so  that  effective  mass  ideas 
are  the  only  simple  way  to  construct  p-excitons. 


There  is  a second  limit  which  is  appropriate  for  positioning  the 
n=l  exciton  line  in  many  crystals  for  which  Eq . (24)  is  inappropriate  and 
which  is  always  employed^are . This  is  the  tight-bound  limit  or  Slater-Koster- 
One  Band-Une-S ite  model.- — This  is  a deep  impurity  model  limit  in  which  the 
crystal  band  structure  is  correctly  taken  into  account.  In  this  model,  one 
assumes  that  the  excited  electron  is  attracted  to  the  hole  by  a coulomb 
interaction  and  that  the  hole  is  local  to  an  ion  or  atom  site  and  that  the 
wave  function  for  the  electron  may  be  expanded  in  terms  of  t^g  , one-electron 
band  orbitals.  It  is  assumed  the  interaction  is  short  range — ' and  only 
orbitals  of  a single  band  are  used  in  the  actual  expansion.  One  further 
assumes  from  the  band  function  one  constructs  the  appropriate  Wannier  functions 
on  a given  site.  It  is  assumed  then  that  the  matrix  elements  of  the  electron- 
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hole  interaction  in  the  Wannier  representation  are  given  by 


<R  , n | V I R , ra>  = V 6pv6  6 6 (25) 

u ' 1 v o nc  me  po 

V is  the  effective  interaction  and  may  be  given  by  R _^in  an  OAO  calcula- 
tion. Here  |R  ,m>  is  the  Wannier  function  at  siteaR  and  site  R is 
the  site  of  thi  "impurity".  The  quantum  number  c standsVfor  the  conduction 
band  for  which  the  sum  is  over.  In  this  representation,,  ^he  probability  that 
the  electron  is  in  the  cell  with  the  hole  is  given  by  — 

|*E(o>r  = I l-VoA(E)  | ' , (26) 


A(E)  H lim 
6-KH- 


/ dtN(t) / (E-t  + 16) , (27) 


In  (27),  N(t)  is  the  state  density  for  the  bands  defined  by  |R^,c>  . 

One  sees  at  once  that  in  the  non-overlapping  limit  the  quantity 
V in  (25)  and  (26)  is  identified  with  K.  given  in  (23)  for  our  model.  Thus 
one  defines  the  needed  parameters.  The  iuthor  assumes  that  continuing  to 
identify  K.  with  V in  the  small  overlap  limit  introduces  negligible  error 
in  the  cases  on  hand. 


V.  ATOMIC  ILLUSTRATION 


The  theory  outlined  in  the  previous  two  sections  makes  a number  of 
definite  predictions.  For  example,  removing  an  electron  from  state  1 re- 
quires energy  in  the  amount  (-e^). 
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(28) 


The  energy  needed  to  excite  an  electron  from  a state  1 to  a state  3 becomes 

E.  * e,  + J r>  - / * + K (29) 

13  3 l3  1 13 

The  expression  (28)  is  pertinent  for  studies  of  ESCA  or  photoemission  spec- 
troscopy whereas  it  is  (29)  which  is  pertinent  for  optical  absorption  or 
emission.  From  that  it  is  possible  to  see  one  other  effect  of  interest. 
Suppose  one  is  interested  in  the  separation  of  two  occupied  levels  say  (1) 
and  (2).  This  could  be  determined  indirectly  from  either  ESCA  or  optical 
absorption.  For  AE ^ , by'  ESCA  one  has 
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(30) 
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whereas  by  optical  absorption  one  has 
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(31) 


Furthermore,  if  direct  optical  absorption  is  possible  from  the  level  1 to  2 
(e.g.  for  a Li  atom  Is  to  2s  is  possible),  one  has 


AE 
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O 
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(32) 


In  general  there  is  no  reason  to  expect  these  three  expressions  for  AE^ 
agree.  It  is  noted  however,  that  if  one  uses  Eq.(31)  to  determine  the  ftydberg 
series  limit,  then  the  values  for  AE^ from  Eq.(31)  will  agree  with  those 
from  Eq.(30)  since  the  K's  vanish  in  this  limit.  However,  they  will  not  agree 
with  the  results  from  Eq.(32)  in  general. 


The  author  suggests  that  a criterion  such  as  this  could  serve  as 
an  experimental  distinction  between  exciton  levels  and  band  levels.  Such  a 
criterion  is  often  needed  in  the  soft  x-ray  range  since  the  excitons  (or 
states  analogous  to  deep  impurities  which  we  don't  differentiate)  are  reson- 
ant states  and  hence  such  traditional  tests  as  photoconductivity  are  not 
useful  for  making  distinctions. 


To  test  these  ideas  in  a simple  framework,  a few  simple  atomic 
calculations  were  performed.  These  were  done  for  the  Li  atom  and  the  Be  atom. 
In  this  case,  the  energies  of  the  various  states  of  single  ionization  were 
computed  as  were  the  energies  of  the  lowest  excite^  state  foi;  each  occupied 
level  and,  for  Li,  the  energy  of  the  transition  1SZ2S  ->  1S2S  . All  calcula- 
tions were  performed  in  the  unrestricted  Hartree-Fock  limit.  A common  basis 
sec  for  all  Li  cases  is  used  and  likewise  for  Be.  In  all  cases  a basis  of 
10  gaussian  orbitals  is  used.  In  Li  several  possible  spin  states  are  some- 
times given.  From  these  self-consistent  total  energies  the  author  calculates 
AE1S2S  *’or  t*iese  systems  as  pertinent  for  the  types  of  experiment  outlined 
above.  These  results  are  summarized  in  Table  I.  The  disagreement  among  the 
various  models  to  define  AE  ^ is  of  the  order  of  1 to  4 eV,  an  amount  which 
is  significant.  In  the  next' section,  this  study  is  extended  to  solid  systems 
and  the  author  shows  how  in  solid  state  cases  this  disagreement  may  be 
greatly  enhanced. 


VI.  SOLID  STATE  SYSTEMS 


In  the  event  of  excitation  of  solid  state  systems  the  author  pre- 
dicts that  there  should  be  two  distinct  types  of  behavior.  The  first  of  these 
is  analogous  to  the  atomic  system  discussed  in  the  preceding  section.  In 
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Table  1 


A summary  of  calculations  for  the  atomic  Li  and  Be  systems.  The 
results  of  several  calculations  are  given  here  for  total  energies  in  several 
ground  and  excited  states.  All  calculations  are  by  means  of  the  unres- 
tricted Hartree-Fock  formalism.  The  energy  differences  between  the  Is  and 
2s  level  as  deduced  by  optical  absorption,  photoemission  and  for  Li  direct 
transition  from  Is  to  2s  level  are  also  given.  Results  are  in  Rydbergs. 


State 

Energy 

Li 

1s22s 

2 

S 

14.8609 

Li 

Is2 

is 

14.4710 

Li 

ls2s 

3s 

10.1008 

Li 

ls2s 

1s 

10.0417 

Li 

ls23s 

2s 

14.7499 

Li 

Is2s3s 

2s 

10.2129 

Li 

ls2s2 

2s 

10.6140 

Be 

1s22s 

Ls 

29.1356 

Be 

1s22s 

2s 

28.5454 

Be 

1s2s2 

2s 

20.0570 

Be 

1s22s3s 

xs 

28.6988 

Be 

1s2s~3s 

1s 

20.2651 

Li 

AE(ls2s) 

for 

photoemission 

4.3702,  4.4293 

Li 

AE(ls2s) 

from  optical  absorption 

4.5370 

Li 

AE(ls2s) 

to 

for 

3s  level 

direct  absorption 

4.2469 

Be 

AE (ls2s) 

for 

photoemission 

8.4884 

Be 

AE(ls2s) 

for 

optical  absorption 

8.4437 

this  type  of  system  one  expects  the  separation  of  core  levels  to  be  ex- 
periment dependent,  but  by  about  1.0  eV  or  so.  Sucli  systems  would  be 
typified  by  the  solid  rare  gases  ind  the  author  expects  will  include  most 
if  not  all  non-ionic  systems,  that  is  systems  in  which  exciton  formation  has 
the  electron  and  hole  on  the  same  site.  The  second  type  of  system  would  be 
the  ionic  crystals  which  are  typified  by  the  alkali-halides.  In  such  systems 
one  will  have  markedly  different  behavior  depending  upon  whether  it  is  the 
anion  or  cation  which  is  excited. 


Consider  the  limit  of  vanishing  overlap:  if  the  ion  being  ex- 

cited is  an  anion  (here  a negative  ion)  it  will  generally  not  possess  any 
bound  states  other  than  the  ground  state.  Therefore  the  electron  migrates 
from  the  anion  and  may  be  trapped  on  the  surrounding  cations.  If  this  occurs 
due  to  the  charged  lattice  there  still  exists  a net  coulomb  attraction  between 
the  excited  electron  and  the  now  neutral  anion.  In  this  case,  the  coulomb 
hole  term  is  roughly  but  reasonably  well  described  by  the  expression 


K.  . 
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(33) 


In  Eq.  (33)  R -R  is  the  average  separation  of  anion  and  cation  and  e is  put 
to  include  the  effect  of  screening  which  reduces  the  size  of  the  attraction. 
In  the  present  model  calculations,  where  pertinent,  the  author  uses  the 
optical  of  electron  constant  which  serves  to  maximize  K...  In  general  there 
is  additional  screening  due  to  ionic  motion  which  would Enhance  c above  the 
optical  limit.  Thus,  in  general,  the  value  given  by  the  author  for  excita- 
tion of  anions  will  be^gn  upper  bound  on  the  exciton  binding  (lower  bound  on 
the  exciton  position) . — 


In  exciting  the  cation,  things  are  much  different.  The  cation 
itself  has  a coulomb  attraction  for  the  excited  electron  and  hence  an  infinite 
number  of  bound  states  on  the  same  ion  as  the  hole.  In  this  case  the  value 
of  K . is  given  as  described  in  Section  IV  -3.  Due  to  these  physically  dif- 
ferent mechanisms  for  ionic  crystals  the  discrepancies  in  energy  between  core 
levels  as  determined  by  differing  processes  can  vary  substantially  and  are 
found  to  differ  by  as  much  as  10  eV  or  so.  The  author  would  anticipate  that 
such  effects  would  be  present  in  polar  molecules  to  a degree  similar  to  the 
ionic  crystals.  In  the  remainder  of  this  section,  the  author  describes  the 
results  of  specific  calculations  for  the  solid  state  systems,  Ne , Ar,  LiF, 

NaF,  KF,  LiCl,  NaCl,  and  KC1.  In  these  calculations  the  author  will  ignore 
the  small  differences  between  levels  as  typified  by  the  atomic  calculations 
in  Section  V.  The  reader  should  be  aware  of  their  presence.  In  the  methods 
used  here  such  splittings  for  these  solids  were  of  the  order  of  0.25  eV. 

He  concentrates  instead  on  the  larger  effect  of  charge  transfer  versus  non- 
charge transfer  and  in  calculating  the  absolute  position  of  true  band  ab- 
sorption edges,  lower  bounds  for  exciton  absorption  for  the  band  edges,  in 
some  cases  actual  positions  of  exciton  lines  using  the  theory  of  Section  IV-3, 
and  the  positions  for  ESCA  type  edges. 

The  actual  models  used  here  are  the  following:  The  bands  are  com- 

puted first  in  the  restricted  Hartree-Fock  limit.  For  the  substances  here 
these  calculations  are  available  and  hencg  no  new  calculations  of  this  type 
are  performed.  The  correlation  part  of  ][  is  evaluated  by  the  EPM  except 
for  NaCl  and  KC1,  for  which  the  available  coulomb  hole  plus  screened  ex- 
change results  arg^ysed  and  for  occasional  corj  levels  where  Fowler's 
results  are  used.—  The  relaxation  part  of  £ is  evaluated  using  the 
Heitler-London  approximation  given  in  Section  TV-2.  The  K..'s  come  from 
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the  OAO  of  Section  IV-3,  except  for  the  charge  transfer  states,  for  which 
Eq.  (47)  is  used.  In  using  the  Lipari  and/or  Kunz—'  results  for  LiCl,  NaCI, 
and  KC1  the  valence  bands  are  recomputed  in  position  to  correct  for  poor 
convergence  of  the  plane  wave  basis  in  the  original  calculation.  It  is  noted 
in  posing,  such  corrections  aren't  needed  for  LiBr  and  NaBr  of  Lipari  and 
Kunz—  as  these  are  better  converged. 

Finally,  the  author  will  discuss  the  practical  aspects  of  applying 
the  OAO  model  to  compute  the  electron  hole  interaction  strength.  In  doing 
this,  the  author  briefly  summarizes  a series  of  theorems  proven  in  Ref.  19 
by  Kynz  and  Collins.  According  to  Ref.  19,  the  proper  choice  of  the  opera- 
tor OAO  is  given  by 

OAO  = 0 f(-l)  < n|g12(l-P12) |n> 

where  °ne  def ines  by 

< a|o<n|g1,P1 , jn>0ja>  - <an|g12|na>  . (35) 

In  Eq.  (35)  g is  the  two  body  operator  (e  /|r^2))  and  ! n>  is  the  wave 

function  for  the  hole  vacated  in  the  band  of  principal  quantum  number  n. 

Ideally  then,  in  terms  of  the  Bloch  functions  if  for  this  band,  one  has 

nk 

ln>  = I ank  Kt  (?)  (36) 

B.Z. 

The  coefficients  a may  be  chosen  such  that  the  expectation  value  of  the 
virtual  orbital  $ solving  En . (11)  is  minimized.  This  prescription  is 
reasonable,  since  the  choice  of  virtual  orbital  in  Eq . (11)  has  been  shown 
to  be  variationally  determined , ^ gn^yo  possess  a Koopmans ' theorem  for  ex- 
citations of  the  N body  system. — — — Therefore  the  shape  of  hole  which 

optimizes  the  energy  of  $ also  optimizes  the  excited  state  total  energy. 
This  of  course  neglects  relaxation  of  core  orbitals  shape  and  correlation. 
These  effects  here  are  treated  separately. 

In  practice,  for  the  case  of  non-overlapping  orbitals  (i.e.  the 
orbitals  for  core  states  in  this  calculation),  the  proper  choice  of  In’* 
for  use  in  Eq . (11)  is  found  to  be  the  local  orbital,  <f  for  the  hole 
vacated.  For  simplicity,  the  author  also  uses  this  approximately  for  the 
case  of  valence  excitations.  Here,  of  course,  overlap  considerations  dic- 
tate that  this  choice  of  n>  is  not  optimal.  However,  here  the  overlaps 
are  small  (of  the  order  of  0.05  or  less)  and  this  should  not  be  a signifi- 
cant problem.  The  calculations  are  performed  using  the  same  code  as  is 
used  in  solving  for  the  local  orbitals,  for  the  ground  state.  Two  shells 
of  neighboring  atom*  irt  included  in  the  calculation  and  the  remainder  of 
the  lattice  is  trs  te  : by  i point  ion  model.  This  seems  reasonable,  in 
that  the  first  excited  levels  for  the  cations  or  rare  gas  atoms  lie  mostly 
inside  the  first  ni ighbor  distance  when  OAO  as  described  here  is  used.  The 

value  of  K i then  btained  bv  :olving  (11)  with  A in  OAO  set  to  zero  and 
na  ' 


6 , (34) 


by  taking  the  difference  of  the  expectation  value  for  e.  in  these  two 
limits.  a 

In  practice  one  could  also  obtain  the  value  of  K for  the  anion 
excitations  by  this  model.  However  the  diffuseness  of  the  ?irst  excited 
level  requires  that  one  use  a more  varied  angular  basis  set  than  the  author 
is  able  to  provide  at  this  time  in  order  to  have  an  accurate  estimate  of 
the  energy.  Therefore  it  is  simple  and  about  as  accurate  in  this  case  to 
use  Eq.  (33)  to  determine  K ^ . In  this  case  (RA  - R ) is  the  nearest  neigh- 
bor distance.  The  author  has  tested  this  approximation  on  several  molecules 
for  which  he  is  able  to  provide  accurate  calculations  of  charge  transfer  type 
excitations  or  core  states.  He  finds  the  use  of  (33)  introduces  an  error  of 
about  20%  in  the  value  of  K.  . In  the  test  cases  the  value  of  K.  given  by 
(33)  was  too  large  and  thus1in  no  way  compromises  the  conclusionXof  this 
manuscript . 


The  basis  set  for  the  solid  state  calculations  consisted  of  s,  p, 
and  d type  Slater  orbitals.  The  same  basis  set  used  for  the  local  orbitals 
calculations  on  the  ground  state  was  employed  and  was  augmented  by  four 
additional  diffuse  s-type  orbitals  for  describing  the  excited  state  (note 
symmetry  prevents  mixing  of  p or  d orbitals  in  the  excited  state) . The  orbi- 
tals were  even  tempered  in  these  calculations.  In  sum  then  for  all  Is  ex- 
citons  the  one-band  one-site  model  is  used  and  for  all  2p  excitons  the 
effective  mass  theory.  For  excitations  of  cation  or  rare  gas  atom  the  0A0 
theory  is  used  to  compute  K.  and  Eq.(33)  is  used  for  anion  excitation. 

Xcl 

Band  structures  for  substances  Ne,  Ar,  LiF,  NaF,  KF,  LiCl , NaCl, 
KC1  are  shown  in  Figs.  1-4.  These  bands  are  obtained  byj-Starting  with  the 
self-consistent . Hartree-Fock  results  in  the  literature.  — To  these  results 
l is  added.  I here  includes  both  correlation  and  relaxation.  This  had 
not  been  reported  except  for  LiF.  In  addition  the  bands  for  NaCl  and  KC1  are 
corrected  for  the  convergence  of  the  plane  wave  basis.  (This  is  needed  only 
for  the  3p  valence  bands.)  This  correction  was  computed  by  the  author  by 
computing  the  T point  in  a self-consistent  LCAO  model. 

In  addition  to  this,  the^values  deduced  by  actual  calculation  for 
the  values  of  the  constituents  of  J and  for  the  K..'s  for  the  various  crys- 
tals studied  are  given  in  Tables  II-V.  From  these^ tables  one  can  deduce 
the  great  difference  between  the  K's  for  on-site  excitation  and  for  charge 
transfer  excitation.  In  addition,  one  can  ?ee  quite  quickly  for  deep  ex- 
citations the  great  dominance  of  the  relaxation  terms  in  determining  the 
edge  positions. 


TABLE  II 


For  the  rare  gas  systems  Ne  and  Ar  the  various  contributions  to  the 
energy  gaps  are  given.  The  correlation  contribution  is  symbolized  by  £*(c) 
whereas  the  relaxation  contribution  is  given  as  £*(r).  The  electron  hole 
interaction  is  essentially  constant  for  all  pair  excitations  on  the  Ne  or  Ar 
atoms.  For  excitations  to  the  3s  level  we  deduce  the  value  of  K to  be  3.45 
+ .1  eV  and  for  excitations  to  the  Ar  4s  level  K is  found  to  be  1.5  eV. 

Results  in  eV. 


Level 

I*  (c) 

r* 

I (r) 

Is  Ne 

1.08 

22.89 

2s  Ne 

1.08 

2.86 

2p  Ne 

1.08 

2.95 

Conduction  band  He 

-1.85 

- 0 

3p  Ar 

1.58 

1.29 

Conduction  band  Ar 

-1.67 

- 0 
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TABLE  HI 


The  self  energies  and  the  electron-hole  interactions  are  given  for 
LiF  and  LiCl.  Results  are  in  eV. 


Level 

System 

r* 

l (c) 

r* 

1 (r) 

K. 

ia 

Li  is 

LiF 

2.92 

1.52 

-10.38 

F Is 

LiF 

1.79 

24.75 

- 3.74 

F 2s 

LiF 

1.79 

4.00 

- 3.74 

F 2p 

LiF 

1.79 

3.56 

- 3.74 

LI  is 

LiCl 

3.45 

1.52 

-10.38 

Cl  Is 

LiCl 

2.42 

33.44 

- 2.04 

Cl  2s 

LiCl 

2.42 

11.51 

- 2.04 

Cl  2p 

LiCl 

2.42 

12.54 

- 2.04 

Cl  3s 

LiCl 

2.42 

3.99 

- 2.04 

Cl  3p 

LiCl 

2.42 

1.48 

- 2.04 

c . b . 

LiF 

-2.38 

-1.0 

c .b. 

LiCl 

-1.61 

I 


T ABLE  IV 


The  Self-Energies  and  the  electron-hole  interactions  are  given 
for  NaF  and  NaCl.  Results  are  in  eV. 


Level 

System 

r* 

y to 

l (r) 

K. 

ia 

Na  Is 

NaF 

2.13 

22.70 

-8.60 

Na  2s 

NaF 

2.13 

2.79 

-8.60 

Na  2p 

NaF 

2.13 

3.10 

-8.60 

F Is 

NaF 

1.99 

24.75 

-3.59 

F 2s 

NaF 

1.99 

4.00 

-3.59 

F 2p 

NaF 

1.99 

3.56 

-3.59 

Na  Is 

NaCl 

2.43 

22.70 

-8.60 

Na  2s 

NaCl 

2.43 

2.79 

-8.60 

Na  2p 

NaCl 

2.43 

3.10 

-8.60 

Cl  Is 

NaCl 

1.31 

33.41 

-2.28 

Cl  2s 

NaCl 

1.31 

11.51 

-2.28 

Cl  2p 

NaCl 

1.31 

12.54 

-2.28 

Cl  3s 

NaCl 

1.31 

1.99 

-2.28 

Cl  3p 

NaCl 

1.31 

1 .48 

-2.28 

c .b . 

NaF 

-1.11 

— 

c . b . 

NaCl 

-2.16 

— 

VII.  EXTENSION  TO  NARROW  GAP  SOLIDS  AND  METALS 


All  the  preceding  theory  applies  with  only  trivial  modifications 
to  systems  such  as  narrow  gap  solids  like  Si  or  to  metals.  The  method  of 
local  orbitals  used  for  getting  localized  descriptions  of  the  charge  density 
operator  may  be  modified  in  three  equally  useful  ways.  The  first  is  to 
construct  atom  based  local  orbitals  in  a RHp  mode  by  averaging  over  the 
needed  low  lying  excited  configurations.  For  example,  i^  th^  case  of  Si,  in 
which  the  Si  atom  exists  fo£  the  atomic  configuration  Is  2s  2p^  3s  3p^(^S) 
one  includes  the  virtual  3s  and  3p  in  localization  and  projects  out  the 
occupied  space  using  the  band  theory  code  to  perform  the  separation.  The 
second  possibility  is  to  localize  some  electron  on  atoms  and  some  in  bonds. 

In  the  case  of  Si  one  would  then  have  a Si  atom  with  electron  in  a ls^,  2s^, 
2p°  configuration  and  4 doubly  occupied  sp^  covalent  bond  orbitals.  The  third 
is  to  use  a UHF  description  in  which  the  up  spin  electrons  localize  on  the 
A suglattice  from  the  n=3  shell  and  the  down  spin  ones  are  the  B sublattice. 
There  is  a fourth  possibility  and  this  is  to  form  non-local  orbitals  which 
localize  say  on  a Si^  cluster.  This  latter  prospect  is  not  appealing  in  that 
it  is  both  inefficient  of  time  and  cumbersome  to  implement. 

The  band  theoretical  techniques  used  herein  go  over  unchanged  for 
metals  or  semiconductors  . 

The  electronic  polaron  needs  only  minor  modification  to  be  gener- 
ally useful.  This  modification  is  to  use  for  a metal  the  plasma  frequency 
rather  than  the  exciton  frequency  and  to  recognize  that  for  wide  bands  the 
expressions  (6),  (7)  are  « for  many  cases  and  one  solves  this  by  expanding 
the  bordered  determinant  in  the  electronic  polaron  derivative  exactly  rather 
than  by  use  of  perturbation  theory.  In  this  limit  the  exact  answer  is  given 
as 


l cio 

ac 


= J 


I v5b | 2 
q 


q,b  ea(k) 


e (k-q)-HW  + )"*  (k) 

b ex  Lac 


(37) 


and 


C & -J 


v+ 

:_q 


nm  i 2 


q,m  £ (k)  + fiW  - e (k  - q)  + £ (kl 
n ex  m 

nc 


. (38) 


The  defining  V-*-^  are  given  by  (8). 

A reprint  detailing  the  extension  in  practice  for  a metal  is  given 
as  Appendix  1. 
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VIII.  LOCAL  ORBITAL  COMPUTER  PROGRAM 


This  is  a series  of  four  programs  used  successively  to  solve  for 
a solid  state  self  consistent  first  order  density  matrix.  The  use  of  these 
programs  and  the  listing  are  given  here. 


VIII-1.  USE  OF  THE  CODE 


This  set  of  calculations  uses  four  programs. 
It  solves  self  consistently  the  equation 


The  first  is  L0PAS , 


1 

p p ii  ■+• 

[FA+V£Ai 

^Ai 

- 1.  Vj  < A j I A|Ak  > ^ 

fAi 


for  a given  U^.  A is  a square  well  of  radius  5.0  Bohr  and  depth  - l.ORy. 

The  remaining  three  programs  form  U^  for  L0PAS . For  a diatomic  substance  the 
first  pass  of  L0PAS  solves  for  both  types  of  atoms  in  the  solid.  This  program 
produces  two  disk  or  tape  output  files.  These  are  K0UT  on  device  6 and  KL0UT 
on  device  7.  It  may  also  need  two  input  files.  This  is  a data  option  as 
shown  below.  These  files  are  KLRP  on  device  8 and  KSRP  on  device  9.  In 
addition  there  is  card  data  as  given  below. 


The  third  program  used  is  called  WFN.  This  produces  potentials  for 
the  fourth  program.  The  potential  is  produced  in  file  KINTER  on  device  5 and 
is 


V(r) 


e »j(r2) 


.12' 


This  program  needs  card  input  and  a file  input  on  device  7,  KL0UT  produced  by 
L0PAS.  Card  input  is  specified  below. 

The  second  program  is  PI0N,  it  generates  the  point  ion  potential 
(spherical  part)  about  both  a positive  and  negative  ion  site  for  a fee  lattice 
it  requires  card  input  as  specified  below  and  produces  the  output  file  KLRP 
on  device  8 which  is  used  by  L0PAS. 

The  fourth  program  is  D0UB,  it  takes  the  potential  generated  by  WFN 
and  expands  it  about  other  sites.  As  this  deck  is  used  for  cubic  solids  we 
retain  only  the  Y^0  term  of  the  expansion,  the  are  identically  zero. 

The  next  term  Y^m  is  small  by  our  tests  and  is  neglected.  This  forms  its  out- 
put on  file  9 and  is  KSRP.  It  uses  file  KINTER  produced  by  WFN  on  device  5 


and  also  card  input.  The  potential  generated  here  is  only  for  the  first 
two  neighbors  (i.e.  the  alkali  and  halogen  are  expanded  about  the  halogen). 
We  assume 


VM  ' l *tm  U)  *,*(».♦) 

£ ,m 


aim(r)  = V(r-HH)Yt-(e.»)  dW  . 

In  file  KSRP  is  stored  Y °(0,<j>)a  (r).  This  program  is  quite  flexible  and 
can  generate  other  expansion  memBers  if  desired  as  well  as  do  other  double 
integrals . 


The  standard  way  of  using  this  program  is  to  use  L0PAS  to  solve 
for  the  free  ion  solutions  or  the  solutions  assuming  U'A  = Vpj(r).  Then 
use  PI0N,  WFN,  and  D0UB  to  get  U sense  L0PAS  using  input  from  these  programs 
and  cycle  through  this  until  selr  consistency.  This  is  normally  only  one 
or  two  passes. 


VIII-2 . INPUT  DATA  DEFINED 

The  following  set  of  data  for  each  ion  or  atom  needed. 

Card  1:  ZLAB(I),  1=1,20  20A4 

Holorith  data  to  provide  a label  or  output 

Card  2:  Z,  RH0.H.NTYPES , T0L, FRACN ,MAXIT,KD1 ,KD2 , 3F10 . 4, 14, F10. A, I 10, 312, 

612 , 2F4 . 0 , IATOM ,NEF, NEC , INTER1 , INTER2 , INTER3 , WT1 , WT2 

Z = AT  number 

we  generate  Rmesh  from  R(I)=EXP  (RHCH-(I-l) *H) /Z 
RHO  is  usually  -3.0 

doub  assumes  these  values 

H is  usually  0.0625 

NTYPES  = no.  of  different  ang.  momenta  present,  i.e.  for  1=3 

if=0  calls  exit.  for  Na+=2 

T0L.=self  consistency  cryterion  try  0.005,  this  is  adequate  usually 

FRACN  determines  wave  function  for  I+lst  interation  from  - INTEGER  TRIGGERS 
PRATT  IMPROVEMENT.  USE  9999  to  avoid 

i^I+1  = FRACN  ij)1  + (1-FRACN)  ij;1”1 

use  0.5  to  0.8.  (If  it  works  1.0  is  best)  now  it  seems  to  work 
much  of  the  time. 
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MAXIT  = max.  no.  of  iteractions  allowed  if  it  is  not  specified  program  uses 
MAX1T  = 21  and  FRACN  =0.5 

KD1  if  = 0 gets  estimate  of  trial  wavefunctions  from  card  data  otherwise 
from  file  K0UT,  almost  always  use  0 

KD2  if  0 gets  input  data  for  potential  from  cards  if  not  0 gets  data  from 
files  KSRP  and  KLPP  use  0 for  first  pass  of  L0PAS  and  otherwise  for 
subsequent  runs  for  a given  material. 


1AT0M 

* o 

if 

we  compute  on  atom 

NEF  = 

no . 

of 

rk 

extra  F 

needed 

NEC  = 

no . 

of 

,,k 

extra  G 

needed 

INTER1,2  and  3 for  mixup  of  state 

INTER  1 gives  L values  of  functions  interchanged  as  L+l 

INTER  2 is  one  replaced  by  INTER  3 (allows  one  to  get  excited  states  for 
example) 

WT1  is  no.  of  atom  in  nearest  neighbors, 

WT2  is  no.  of  atom  in  next  nearest  neighbors 

Card  3:  VEST(I) ,1=1 ,161  8F10.5 

this  is  the  point  ion  potential. 

Card  4:  1X,5F12.6  K(I)  is  short  range  potential. 


Note:  Read  in  card  3 and  4 only  if  KDZ  p 0 and  then  only  from  disk  or  tape. 


Card  4 : RMAX,  DEPT,  2F10.4  Well  part  of  rad  RMAX  and  depth  Dept  with  a 

DEPT  + RMAX 


tail  R > RMAX  V = 


R 


(Ignored  in  programs  if  cards  3 and  4 received  in  from  disk  or  tape) 


Card  5:  314 

NES  = no  of  S functions  expansion  used 

NEP  = no  of  P functions  expansion  used 

NED  = no  of  D functions  expansion  used 

Card  6:  I4.F14.7  1=1,  NTYPES , J=l,  NES,  AJ (1 , J) ,ZJ (I , J) 

NEP 

NED 

wavefunction  assumed  to  be  of  form 


AJ  +SI 

W>  ■ <6’*>  l CJjm i r eWt-ZJjK) 

j 

here  the  A+Z  are  readins.  Program  from  the  NJ’s  use  A+Z  from 
Freeman  and  Watson  or  Bagus  papers  usually  or  extrapolate 
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Card 


Card 


Card 


Card 


Card 


Card 


Card 


Card 


Card 


7:  N0(I) ,1=1,3,314 

N0(1)  = no.  of  occ  S orbitals  (shells) 

N0(2)  = no.  of  occ  P orbitals  (shells) 

N0(3)  = no.  of  occ  D orbitals  (shells) 

i.e.  for  Na+N0(l)=2,  N0(2)=l,  N0(3)=O 

8:  6F12.5  1=1, NTYPES,  J=1 ,N0(I) ,K=1 , 11  PSI0(I,J,K).  Initial  estimate 

of  CJ  coefficients  can  be  rather  bad  makes  little  difference  see 
Watson  and  Freeman,  etc.  Always  on  cards  but  if  KDl^O  also  gets 
them  from  disk.  Uses  disk  version  if  readin 

9:  214,  NF(I),  NG(I),  I=1,NTYPES 

NF  is  no  of  Fk  integrals  needed  for  each  type  of  orbital  (see 
Hartree's  book  for  definition) 

NG  is  no  of  Gk  integrals  needed  for  each  type  of  orbital  (see 
Hartree) 

10:  I4.F12.6  1=1,  NTYPES,  J=1,NF(I)  F(1 ,J) ,XF(I , J) , 

F tells  which  function  in  core  is  used  in  the  F integral,  XF  tells 
its  weight  see  Hartree.  Functions  are  stored  as  follows.  All  S 
functions  then  all  P functions,  then  all  D functions  stored  from 
lowest  eigenvalue  up. 

11:  2I4.F12.6  1=1, NTYPES,  J=1,NG(I) 

G(I,J,1),G(I,J,2),XG(I,J) 

G(I,J,1)  gives  the  K of  G to  evaluate 
G(I,J,2)  gives  the  function  used 
XG ( I , J ) gives  the  weight 
see  Hartree 

Note  in  list  sample  input  for  LCR  is  given  output  is  essentially  the 
energies  and  the  CJ's  found  for  S then  P then  D functions. 

12:  314,  F18.10  if  needed 
I,J,K,WT  for  extra  F^'s 

K is  the  k of  F^ 

I and  J tell  which  function 
WT  = 1.0 

13:  I,J,K  as  card  12  except  if  needed  for  G 's 

Input  Information  for  WFN  - set  for  each  ion  or  atom 

1:  Z,N, F10. 4 , 14 

Z = at.no 

N = no  of  occ  sub.  shells 
If  Z = 0 call  exit 

2:  N times  F10.4  WT 

WT  is  occ.  number  of  this  shell 
also  file  KLRP 

only  useful  output  is  on  K.INTER 
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Data  for  PI0N 


(1  set  for  each  atom) 


Card  1:  NREC  14 

no  of  regions  needed,  use  6 if  0 call  exit 

Card  2:  IPT,RH0,H,Z,SIGN,I$,$F12.6 

IPT  = 161 
RH0,H  as  in  L0PAS 
Z = at/  mp 

SIGN=  - ionicity  i.e.  for  Na  is  -1,  for  Cl  is  +1 

Card  3:  B0UND.C0NS ,C0FT  is  NREG  Terms  3F12.4 

Band  is  R max  of  region 
in  Region  we  have  V = C0NS+C0FT/R 
use  for  fee  lattice  the  set 


B0UND 

C0NS 

C0FT 

a/2 

-6.99/a 

0.0 

/2  a/ 2 

17.01/a 

- 12.0 

Z3  a/2 

-17.01/a 

12.0 

2 a/2 

1.445/a 

-4.0 

/5  a/2 

-10.55/a 

8.0 

00 

0.0 

-3.74 

a is 

latt . 

param  in 

Bohr  units  useful  output 

is  on  file  KLRP 

blende  lattice 

Card 

1: 

4 

Card 

2: 

161 

-3.0  0.0625 

Z + Ionicity 

Card 

3: 

/3 
4 3 

-7.5658/a 

0.0 

/I 

T-3 

10.88/a 

-8.0 

/Tl 

-23.0/a 

"T-3 

16.0 

00 

0.0 

-3.11 
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Input  Data  for  D0UB 


Card  1 
Card  2 
Card  3 


Card  1 
Card  2 
Card  3 


also  gets  data  from  KINTER 


N0FUN  12 

no  of  types  of  atoms,  i.e.  for  alkali  halide  = 2 

Z(I),  1=1 ,N0FUN  20F6.0 
Z = at.  no.  of  each  type  of  atom 

I,J,K,L,M,N,A  6 (2 , F12 .6) 


here  for  an  diatomic  system  use 


3 3 2 

3 3 1 

4 4 1 

4 4 2 


2 2 1 
2 2 1 
2 2 1 
2 2 1 


the  following  4 cards  only 
a/2 

/2  a/2 
a/2 
/2  a/2 


General  Input  Data  for  D0UB  for  HF  routine (if  used  as  an  integration 
program  rather  than  extension  program) 

: N0FUN  12 

no  of  functions  read  in 

: Z(I),  20F6.0  1=1,  N0FUN 

Z at  m 

: I, J,K,L,M,N,A,  6I2.F12.6 
I = fun  at  cert 
J = oth  " 

K = fun  at  oth  cent 
L = 1 = 1.0 

2 = So 

3 = Po 

4 = Pit 

5 = do 

6 = dir 

7 = dS 
M 

N 

A = separation  of  origins 


A 
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IX.  THE  BAND  THEORY  PROGRAM 


This  is  a complicated  program  and  the  control  option  and  data 
are  spelled  out  including  examples  here. 

IX.  USE  OF  THE  CODE 


CONTROL  CARDS 


!dob 
! LIMIT 

! ASSIGN  F:5,  (FILE,  HSI  DATA),  (IN),  (SAVE) 

! ASSIGN  F: 6 , (DEVICE,  LO) 

.'ASSIGN  F:13,  (SAVE),  (OUTIN),  (FILE.HFILE  13)  , (SN.KUZ6) 

[ASSIGN  F: 20 , (SAVE),  (OUTIN),  TRIES, 20),  (FILE,  HFOPKMTHS) , (SN,  KUZ6) 

! ASSIGN  F: 21 , (SAVE),  (OUTIN),  (TRIES, 20),  (FILE,  HF1RRSTR) , SN , KUZ6) 

[ASSIGN  F: 22 , (SAVE),  OUTIN),  (TRIES, 20),  (FILE,  HF2CCTH) , (SN.KUZ6) 
[ASSIGN  F : 2 3 , (SAVE) , (OUTIN) , (TRIES, 20),  (FILE,  HF3  COEF) , (SN.KUZ6) 
[ASSIGN  F:24,  (SAVE),  (OUTIN),  (TRIES , 20)  , (FILE . HF4BNLBTH)  , (S&,’,KUZ6) 

[ASSIGN  F : 2 5 , (SAVE),  (OUTIN),  (TRIES  , 20)  , (FILE , HF5PLMGTH)  , (SN,Kl'Z6) 

[ASSIGN  F: 26,  (FILE,  ALPAASI),  (OUTIN),  (RANDOM),  (RSTORE , 747),  (SAVE), 
(SN.KUZb) 

[ASSIGN  F: 27 , (FILE,  ALPXXSI) , (OUTIN),  (RANDOM),  (RSTORE , 690) , (SAVE), 
(SN,KUZ6) 

[ASSIGN  F:28,  (FILE,  ALPAXSI),  (OUTIN),  (RANDOM),  RSTORE,  737),  (SAVE), 
(SN,KUZ6) 

[ASSIGN  F : 2 9 , (FILE .ALPXASI) , (OUTIN),  (RANDOM),  (RSTORE,  681),  (SAVE), 
(SN.KUZ6) 

[ASSIGN  F : 30 , (FILE,  NTGRLSI) , (OUTIN),  (SAVE),  (TRIES, 20),  (SN,  KUZ6) 
[ASSIGN  F: 31 , (FILE,  SIEV)  , (OUTIN),  (SAVE),  (TRIES,  20),  (SN,  KUZ6) 
[ASSIGN  F : 32 , (DEVICE,  NO) 

[ASSIGN  M : LM , (FILE,  HLMNBANG) , 1SN,  KUZb) 

[OLAY  (EF,  (HBANGROM) , (CHCKPTBO,  MRLIB)),  (LMN .HLMNBANG) , (PERM),  (MAP) 
[RUN  (LMN, HLMNBANG, ) , (SN,  KUZ6) 

[DATA 

Checkpoint  time  here 
!FIN 


above,  the  files  are: 

HSIDATA,  input  data  file,  to  be  described  later 
HFILE13,  scratch 

HFOPKMTHS , HFIRRSTR,  HF2CCTH , HF3COEF , HF4RNCRTH , HF5PLMCTH,  all  scratch 
ALPAASI,  ALPXXSI,  ALPAXSI,  ALPXASI,  i expansion  files:  A functions  about 

other  A sites,  X functions  about  X sites,  A functions  expanded  about  X sites, 
X functions  expanded  about  A sites  respectively. 

NTGRLSI,  integral  file 

S1F.V,  contains  answers:  labeling  info,  wave  functions,  eigenvalues 
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IX. 


2 INPUT  DATA  DEFINED 


RANDOM  a-FILE  DETERMINATION 
for  AA  set: 

it  of  words=  MXPTS  * MXPAN  * (NSF.TS  * LADINX  (LAMAX  + 2)  + 1) 

MXPTS  = it  of  radial  grid  points  used 

MXPAN  = (//  of  L'  values  used  in  a-expansions) -1 

NSETS  = it  of  neighbor  shells  of  type  we  are  expanding 

LADINX  = it  of  functions,  both  occupied  and  virtual,  on  site  A,  counting  0 
and  position  only  M values,  and  counting  only  functions  below  the 
value  of  £ specified.  '(£  is  the  subscript  -1) 

Example:  have  2 s functions 

3 p functions 
1 d function 


i 


then  LADINX (1) 
LADINX (2) 
I,ADINX(3) 
LADINX(4) 


= 0 
= 2 
= 8 

= 11  = LADINX (LAMAX  +2),  if  LAMAX  = 2 


for  AX  set  (A  orbitals  expanded  about  site  X)  like  above,  but  don's  add  1 
to  it  of  words 

for  XX  set,  like  above  for  AA,  bu^  with  X 
for  AA  like  above  but  don't  add  1 


DATA  FILE 


Card  1.  LLDTAL , NROl'T,  LLMTRX;  10X,  L5,  15,  L5 

LLDTAL:  logical  variable  is  TRUE  if  a debugging  run  is  made, 
otherwise  set  it  FALSE 
NROL’T:  set  equal  to  3 

LLMTRX:  logical  variable  causes  matrices  to  be  printed  out  along 
with  bands 

Card  2.  LLA0A,  NEIGHA,  LLA0X,  NEIGHX;  2(L5,  15) 

LLA0A:  TRUE  if  orbitals  exist  at  site  A(  true  if  only  one  type 
of  atom) 

NEIGHA:  it  of  shells  of  neighbors  of  A to  be  considered 
(up  to  6) 

LLA0X:  TRUE  if  orbitals  exist  at  site  X also 

NEIGHX:  it  of  shells  of  neighbors  of  X to  be  considered 
(up  to  6) 


L. 


Card  3: 


Card  4: 


Card  5: 


Card  6: 


Z,  ZION,  ZR,  RHO,  H,  IPTS,  N0CC , NT0T  (5F10.0,  315) 

Z:  atomic  It  of  atoms  at  A site 

ZION:  ionicity  (e.g.  -1  for  F in  LiF) 

ZR:  integration  parameter .Set  at  15.0 
RHO:  integration  parameter.  Set  at  -2.5 
H:  integration  parameter.  Set  at  .05 

IPTS:  It  of  points  in  mesh.  Use  161 

N0CC:  It  of  occupied  orbi^als^at  ghe  center  (e.g.  3 for  F in 
LiF  since  F is  Is  2s  2p 

NT0T:  total  It  of  orbitals,  incl.  virtual  at  site  A (For  site  A 
maximum  is  MXAFN  in  program,  for  site  X maximum  is 
MXXFN) . 

L,  NBASES , L0CFN , LT0FN:  415 

L:  L quantum  number  of  atomic  shell 

NBASES:  It  of  basic  functions  for  this  SL  (up  to  15) 

LOCFN : It  of  occupied  shells  for  this  l 

LTOFN:  if  of  total  shells  for  this  i (total  It  of  functions 

we  wish  to  build  for  this  l) 

As  many  cards  as  needed.  With  8 (F8,0,I2)  read  in  exponent  and 
principal  .quantum  number  of  each  of  the  NBASES  basis  functions 
(S.T.0.)  The  function  we  wish  to  make  a block  function  out 
of  has  this  form 


nJlm 


= (6  » d> ) 


NBASES 

l 

j=l 


nH 


N .r 


V1 


-Z„  . r 

, 2j 


So  for  each  £.,  for  all  j,  we  read  in 


and  n . 


As  many  cards  as  needed.  With  8F10.0,  with  one  logical  record 
per  each  of  the  LT0FN  functions,  read  in  the  NBASES  coefficients 
plus  FR,  FRSP , RCUT 
Must  give  occupied  functions  first 

FR:  effective  charge  in  units  of  -]e|  for  electrons  in  that  s 
shell,  if  FR  = 0,  default  is  1.  Room  must  be  left  for 
FR  whether  or  not  shell  is  occupied 


FRSP:  fraction  of  the  spin  shell  which  we  are  solving  for  which 

is  occupied  for  this  shell  (i.e.,  for  a 2p  shell,  if  there 
are  3 spin  up  p electrons  and  one  spin  down,  FRSP  = 1. 
and  FR  is  .666666  for  that  shell  if  we  are  solving  for 
the  spin  up  sol ut ions . 

RCUT:  function  will  be  truncated  for  distances  beyond  this 

value.  (if  0.  - no  truncation). 


Repeat  cards  4,  5,  and  6 for  each  l value  on  first  center  (A). 

If  LLA0X  is  true,  repeat  card  3 and  set  of  4,  5,  and  6 for  center  X. 


Card  7:  A,  UNIT,  NXPAN , ITHPTS , LLGENA,  LCHALL , LLBl'F ; F10.0,  F10.5, 

215,  3L5 . 

A:  cube  edge  in  Bohr 

UNIT:  use  .25  for  diamond  or  z inc  blend  lattice 

NXPAN:  if  of  a functions  per  expansion  (max  = 30) 

ITHPTS:  Set  at  101  (angular  integration  grid  for  a function 

generation) 

LLGENA:  Set  TRUE  if  a functions  need  to  be  generated  this  run 

Set  FALSE  if  a functions  have  already  been  calculated 
and  are  on  hand  in  their  files 

LLCHAL:  Must  be  set  TRUE  if  LLGEN1  (see  below)  is  true. 

Otherwise,  set  TRUE  if  presence  and  size  of  a files  are 
to  be  checked. 

LLBUF:  TRUE  if  Buffer  IN/OUT  Sigma-5  subroutines  are  to  be 

used.  Set  FALSE  for  other  computer. 

Cards  8-10  pertain  to  site  A one  center  integrals 

Card  8:  NAF(I),  NAC.(1),  1=1,  LAMAX1  = 3;  214  (three  cards) 

NAF(l):  if  of  F type  integrals  to  be  calculated  for  lvalue  = 

I - 1 type  electrons  feeling  presence  of  each  shell 
in  turn 

NAC(I)  : if  of  G type  integrals  (See  Hartree's  book  for  defini- 

tion of  F and  G integrals 

Card  9:  FA(1,J),  XAF(I,J),  1 = 1,  LAMAX  +1;  J = 1,  NAF(I) ; IH,  F12.9 

(as  many  cards  as  needed) 

FA(integer)  tells  which  shell  is  causing  the  potential  being 
considered  in  the  present  integral  and  XF  tells  its  weight. 

If  I = 1,  2,  or  3,  then  we  are  finding  contributions  to  the 
potential  of  s,  p,  or  d electrons  respectively.  Alwavs  list 
shells  as  follows:  first  all  occupied  s shells,  then  all 

occupied  p shells,  then  all  occupied  d shells. 

Card  10:  CA(I,J,1),  CA(1,J,2),  XAG(1,J),  1=1,  LAMAX  + 1,  J = 1,  NAC(I); 
214,  F12.9 

GA(l,J,i):  gives  K value  for  the  G(K)  integral 
GA(I,J,2):  tells  which  shell  produces  potential 
XAG(I,J):  is  multiplier  for  t ha t integral 

Repeat  cards  8,  9,  and  10  for  site  X if  LI.A0X  = TRUE 


7 


Card  11: 

NBLCHA, 

NBLCHX;  215 

NBLCHA: 

if  of  Bloch  functions  made  up  of  orbitals  at 

center  A 

(counts  all  m values  and  uses  all  functions 
in  cards  4,  5,  and  6.) 

built  up 

NBLCHX: 

as  above  for  site  X 

Card  12, a, b:  for  each  function  read  in  through  card  6 we  assign 

angular  quantum  if  LA  (as  before)  and  label  with  principal 
quantum  number  NA(  no  relation  to  the  N read  in  for  STO 
evaluation)  beginning  with  LA,  LA  + 1,  etc.  until  wll  func- 
tions from  card  6 have  been  assigned  in  order. 

Card  12a  NA,  LA:  215 

Card  12b:  Using  format  8F10.0  supply  the  complex  coefficients  of 

Y.  , m = 0,  +1,  -1,  ...  for  the  Bloch  function  whose  NA  and 
LA  values  are  read  in  just  before 

Repeat  Cards  12  NBLCHA  times 
Repeat  Cards  12  NBLCHX  times 

Card  13:  LLETE,  NLETE;  L5,  15 

LLETE:  set  TRUE,  if  some  Bloch  functions  are  to  be  deleted 

from  already  calculates  H and  S matrices  due  to 
linear  dependences 

NLETE:  if  of  basis  functions  to  be  deleted 

Card  14:  KLETE;  1615 

(skip  card  14  if  LLETE  = FALSE) 

KLETE:  the  serial  if  of  each  basis  function  to  be  deleted 

(will  be  numbers  anywhere  from  1 to  NBLCHA  + NBLCHX) 

Card  15:  XKX,  XKY , XKZ,  ITW,  LLGENI , NEIGHA,  NEIGHX,  NVEC;  eFIO.O, 

15,  L5 , 315 

XKX,  XKY,  XKZ:  the  X,  Y,  and  Z components  of  k vector 

IWT : if  of  equivalent  k’s  in  B.Z. 

LLGENI:  set  TRUE  if  all  integrals  are  to  be  generated 

NEIGA  if  of  shells  of  neighbors  at  A (overrides  previous 
specification  unless  0) 

NEIGX:  as  NEIGA,  for  center  X 

NVEC:  Indicates  if  of  eigenvectors  to  be  printed;  if  zero, 

none  will  be  printed 

Repeat  Card  15  for  each  k point  desired.  LLGENI  will  automatically  be 
set  FALSE  for  all  successive  reads 
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XX- 3. 
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NUMBER  OF  RECCROS  - NS E T S- L A D I NX  | L AM  A X *2  I ♦ 1 • 6»2B*1  • lal 
THIS  ASSUMES  The  largest  NU-BEH  Of  FUNCTIONS  »J1M  A 


lib  - 

117  - 

118  - 
119  - 
12U  - 
121  - 
122  - 

123  - 

1 24  - 

125  - 

126  - 

127  - 

128  - 

129  - 

130  - 

131  - 

132  - 

133  - 
13*  - 

135  - 

136  - 

137  - 

138  - 

139  - 

140  - 
1*1  * 
142  - 
1 * J " 

144  - 

145  - 

146  - 

147  - 

148  - 

149  - 

150  ' 

151  - 

152  - 

153  - 

154  - 

155  - 

156  - 

157  - 

158  - 

159  - 

160  ' 
161  - 
162  - 

163  - 

164  - 

165  - 

1 66  • 

167  - 

168  ' 
169  ' 
1 70  “ 
1/1  * 
1 72  - 
1 73  - 

174- 

1 75  - 


120 

1 2 1 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 
1*2 
1*3 
144 
1*5 
1*6 
1*7 
1*8 
1*9 

150 

151 

152 

153 
15* 

155 

156 

157 

157 

158 

159 

160 
161 
162 
16  3 
16* 

165 

166 

167 

168 

169 

170 

171 
1 72 
173 
17* 
1 75 

176 

177 

178 


• 000 
• 000 
• 000 
•000 
• 000 
•000 

• ooc 

• 000 
• 000 
•ooo 
• 000 
•000 
• 000 
•000 
• 000 
•000 
• 000 
• 000 
• 000 
.000 
• 000 
• 000 
• 000 
• 000 
.000 
.000 
• 000 

• ooo 

• 000 

• ooo 

• 000 

• ooo 

• 

• ooo 

• ooo 

• ooo 

• ooo 

• ooo 
.500 

• 0Q0 

• ooo 
.000 

• ooo 

• ooo 
.000 

• ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 


ccccc 

ccccc 

899 


900 

901 

ccccc 

c 

ccccc 

1 

902 


GIVEN  l,  STORED  IN  LTOAFN,  ARE  (6,5,3) 

MAXIMUM  RECOUP  SIZE  (WORDS)  • MX  PT  St  MX  PA  N - 161*30  • *«|0 

NOTE  ONI.Y  ONE  RECORD  PER  TRACK  If  880  TO  1823  »0R»«  PEN  RECt 

u indicates  unformatted  i/o 

JAAUNM  IS  the  ASSOCIATED  VARIBLE 

DEFINE  FILE  27  ( 79  » 4 830.  U»  OX  XUNM  ) 

IXXFCE-27 

NUMBER  OF  RECORDS  - NS  ET  S»  LX  0 1 NX  ( L KM  AX  *2  I ♦ 1 • 6*l3f»  ■ 79 

this  assumes  the  largest  num0|r  of  functions  with  a 

GIVEN  Li  STORED  IN  LTOXFNi  ARE  (4,3,1) 

MAXIMUM  RECORD  SIZE  (WORDS)  - MXPTS»MXPAN  - 161*30  * *030 

NOTE  ON  LV  ONE  RECORD  PER  TRACK  IF  880  TO  1823  W OR  06  PER  RECt 
U INDICATES  UNFORMATTED  I/O 
JXXUNM  IS  TM£  ASSOCIATED  VARIBLE 

DEFINE  FILE  281 150i*830,U, JAXUNM) 

IAXFLE-28 

NUMBER  OF  RECORDS  ■»  NSET  S*L A DI  NX  | u AM  AX  *2  ) - 6*25  • J50 

THIS  ASSUMES  The  LARGEST  NUM06R  Of  FUNCTIONS  *JTM  A 
GIVEN  L i STORED  IN  LTOAFN,  ARE  (6,5,3) 
ha  x l MUM  RECORD  SIZE  (WORDS)  • MXRTS»MXPAN  • 16l»30  • *030 

NOTE  ONLY  ONE  RECORD  PEr  TRACK  IF  880  TO  1823  WORDS  PEN  RECt 

U INDICATES  UNFORMATTED  I/O 
JA  XUNM  is  TH£  ASSOCIATED  VARIBLE 

OFFINE  file  29 ( 78,4830,U,UXAUNM) 

IX  AE  LE  »2  9 

NUMBER  OF  RECORDS  * NSETS»LXD I NX  ( L XI* AX *2  I • 6»13  • 78 

THIS  ASSUMES  THE  LARGEST  NUM0ER  Of  FUNCTIONS  »I  TM  A 
GIVEN  L,  STORED  IN  LTOXFN,  ARE  (*,3,11 
MAXIMUM  RECORD  SIZE  (WORDS)  - MXPTStMXPAN  • 161*30  6 4030 

NOTE  ONLY  ONE  RECORD  PER  TRACK  IF  880  TO  1823  SORPS  PEN  RECt 

U INDICATES  UNFORMATTED  I/O 
JXAUNH  IS  TH£  ASSOCIATED  VARIBLE 

IIFICE-30 

IFVFL£*31 

FILE  13  NEECED  ALSO  FOR  COMPLEX  0 ! AGON Al I Z AT  ION  ROUTINES  (CUUN) 

INPUT  ITME 

CALL  CmCKPT | 'HCKPTFLE 1 , 1 THE  I 
Call  Elapse  I Iminui 

TMINUwO.O 
wR  I TE ( 6, 899  I 

format!'  i ,3ox 'electronic  band  structure  of  closed  |hell  S01.IP5'/ 

1 ' ' , 30X  ' HARTREE-FOCk,  LCAOi  LOCALIZED  0NBITALSU 

2 ' < , 3 g X • PROGR4M0O  BY  0.  J.  MICKH*'/ 

3 ' ' , SOX ' PHYSICS  DEPARTMENT'/ 

* ' ' » 3QX ' UNIvfRSJTY  OF  ILLINOIS } 4 

5 ' ',30X'  URBANA,  ILLINOIS  61801U/) 

PE  AO ( 5 » 909  ! LLDTAL,NROuT,LLMTRX 

FMPhaT ( 10X.L5,  1 5 , L 5 I 

WR I T E f 6,901  ) LLDTAL/NROUTiLLMTRX 

FORMAT!/////’  ','LLDTAL  - ' ,L2, ' NROUT  •',12,'  LLNTN0  «'»L2I 

.............................  ...t.tt. •»•.•••••. •••••••*44tt44.t*«, 

SI  TE  S 


RE  AD  ( 5 , 902  I LL  AO  A,  NE  IGHA,Ll*Ox,N|JGI»x 
FORMAT  ( 2 ( L5,  15)  I 


I 


176 

179 

000 

c 

NO Tf  TNAT  ALL  AVAILABLE  SETS  0F  NEIGHBORS  "ILL  BE  W*tO  IN  RIICN 

177 

180 

000 

c 

subroutine 

178 

181 

000 

LI  NAOA-.  NOT  . LL *0A 

179 

182 

000 

LLNAOX-.NOT.LLAOX 

180 

m 

183 

000 

HR ITE 1 6, 903 ) LLAOA  »N£  J OH  A,  LL  AOX,  NC  10 MX 

181 

m 

184 

000 

903 

FORMAT!'  ' j ' LL  AO  A - ' , L 2,  ' NEIQHA  *'aI3,'  LLAO*  -'»L2» 

182 

m 

185 

000 

• NEIQHX  • ',  13  I 

183 

m 

186 

000 

if  ( llnaoa.ano*llnaoxi  call  exit 

18  4 

187 

000 

ccccc 

18b 

188 

000 

c 

AO  »s 

186 

189 

000 

ccccc 

187 

190 

000 

2 

ZA  «0  • 0 

188 

191 

000 

ZX-0.0 

189 

192 

000 

NAEL"0 

190 

193 

000 

NXEL"0 

191 

194 

000 

LAHI 1-1 

1 92 

195 

000 

LX  MI  1-1 

1 9 J 

m 

196 

000 

IF  ( LLNAOA  ) GQ  TO  4 

19* 

m 

197 

000 

IF  ( NE  IQMA  tOE  , 1 . AND.  NE  IQHA  .LE  • NSETSJ  (iO  TO  3 

195 

m 

198 

000 

HR  I T E ( 6#  90*  ) NEIOMA.NSETS 

196 

m 

199 

000 

90* 

FORMAT!'  ','NEIGHA  -',13,'  NSET1  *',131 

197 

m 

200 

000 

CALL  EXIT 

198 

m 

201 

000 

3 

HR  I TE 1 6/ 905  ) 

199 

202 

ooo 

905 

format (' i '/• input  data  for  center  r [ a • • follows') 

200 

203 

000 

CALL  HAVEEN!  ZA»ZAION,ZAR,RHOA,  HA,  I APT6«RAM£SH,  RANLaOk*NL,M»AFN, 

201 

20% 

000 

1 MXPT8,LAMAX1,L0CaEN,lT0AEN,LAHI1,NAEL,FBA,ERaSRI 

202 

m 

205 

000 

ntoafn-o 

203 

m 

206 

000 

DO  30001  L1-1«LAMI1 

20* 

m 

2 07 

000 

30001 

NTOAFN-NTOAFN*LTOAFN(Ll) 

SOS 

208 

000 

00  30002  I-1,JAPT8 

206 

209 

000 

rr-rameshi I ) 4*2 

207 

210 

000 

INXFN- I 

208 

211 

000 

DO  30002  NN-UNTOAFN 

209 

212 

000 

RRANLI INXFNI-RANL! INXFN) **2»RR 

2 10 

213 

000 

30002 

INXFN-INXFN4JAPT8 

211 

214 

000 

DO  30005  NN-1,NT0AFN,8 

212 

215 

000 

nmax-nn+7 

213 

216 

000 

IE  ( NMAX  • 0 T • NTOAFN ) NMAX-NTOAFN 

21* 

m 

21  7 

000 

HR  I TE ( 6/  9053  | ( N, N-NN, NMAX  ( 

215 

m 

218 

000 

9053 

FORMAT!  'O' /'  I ' , 5X 'RMESH  1 I ) ' ,2X8  | JXJ2,  ' ORBITAL'II 

216 

m 

219 

000 

DO  30005  I-1<IAPTS 

217 

220 

000 

30005 

HR ITEI6, 90571  I, RA MESH  11  1,  1 RRA NL  t 1 N»  1 1 • I AP TS ♦ I 1 , N- NN  , N BA  X 1 

218 

221 

ooo 

9057 

FORMAT!'  ' , I 3*Fl2, 6, 2X8F 13 .6 1 

219 

222 

000 

♦ 

IF  ( LLNAOX 1 QO  TO  6 

220 

223 

ooo 

IF  ( NE IGHX >0E • 1 • AND, NE IQHX >LE. NSITS1  00  TO  5 

221 

m 

224 

ooo 

HRITE(6,906I  NEIGMX,N8ETS 

222 

m 

225 

ooo 

90* 

FORMAT!'  ','NEIQMX  -',13,'  NSET*  » • # 1 3 ) 

223 

m 

226 

ooo 

CALL  EXIT 

-’2* 

m 

227 

ooo 

5 

HRITE 1 6, 907 ) 

225 

228 

ooo 

9Q7 

FflRMAT (' 1 ',' INPUT  OATA  TOR  CENTER  l)X''  FOLLOHS'I 

226 

229 

ooo 

CALL  hAvEFN<Zx,ZxI0n,ZxR,Rmox,hx,jxPT8,hxmesm, Rxnl#Bh*RL,m»»en, 

227 

230 

ooo 

1 MXPT8,  L*MAX1,l0CXFn»lT0XEN,LXMI1,NXEL»M*»M*S(|| 

228 

231 

ooo 

ntoxfn-o 

229 

23  2 

ooo 

00  50001  L1-WLXMI1 

230 

233 

ooo 

50001 

NTOXFN-NTOXFNALTOXFN (L 1 ) 

231 

234 

ooo 

DO  50002  l - 1 1 I XP  T6 

232 

235 

ooo 

RR-R  XMESM 1 I 1 ? 

233 

236 

ooo 

In  xe  n-  I 

234 

237 

ooo 

00  50002  NN-l, NTOXEN 

235 

238 

ooo 

RRxnL!  INXFN)  »R«NL<  IN*EN)»»2»RR 

b / 


£36 

239 

000 

50002 

INXFN- INXFN* 1XPTS 

£37 

240 

000 

00  50005  NN«l,NT8XFNx8 

£ 38 

£4  1 

000 

NM  A X *NN* 7 

£39 

2*12 

000 

IF  l NM4X *G T • NTOXFN  ) Nh  AX  *N  TO  XF  N 

£ 40 

243 

ooo 

wR  ITE  ( 6#  9053  ) ( N , N mN  Nj  NM  AX  ) 

2*i 

244 

000 

DP  50005  I - 1 x 1 XP  TS 

£*£ 

245 

ooo 

50005 

MR  I T E < 6»  9057  1 lx  RXMESH  I I 1 x l R RX  NL  | | N-  1 I ♦ l XP  TS  ♦ 1 1 x N-  NN  X N Pi  X 1 

24  3 

246 

000 

6 

LMAXI-maXOILAhIIxLXHII ) 

£44 

24  7 

oco 

IF  I FLOA  T|  NA£L  *NXEL  1 «E  Q.  ZA*Z  X 1 GO  T0  60005 

£ 4b 

248 

ooo 

WPITE(6#  908I  N AELx  NX  EL  x Z Ax  ZX 

2*6 

249 

ooo 

908 

FORMAT!'  'x'SVSTEM  DOES  NOT  HAVE  NEUTRAL  CHARGE  NALL  •'xlHx 

24  7 

250 

ooo 

1 

• NXEL  • ' x I 3x ' Z A -!«Fb.lx'  ZX  -'xE6.il 

£48 

251 

oon 

CALL  exit 

£49 

252 

ooo 

ccccc 

call  elapsei iminui  (label  is  fcooosi 

£bU 

252 

500 

60005 

CPNT INUE 

251 

253 

ooo 

ccccc 

FP  I n U- Float ( IMINu)*l»0E-3 

252 

254 

ooo 

ccccc 

THINO*TMINO*FMInu 

2b3 

255 

ooo 

ccccc 

HP  ITE  ( 6x  9095  1 FHINUxTMINu 

£54 

256 

ooo 

9095 

FORMAT  ('  O'  X 1 INTERVAL  - * x Eb  • 2x  ' M IN ' j 1 OX ' TIME  -'xF6«*x'  MIN'XI 

255 

25  7 

OOO 

ccccc 

£5o 

258 

ooo 

c 

AO  N XP  AN 

£5  7 

259 

ooo 

CCCCC 

2sa 

260 

ooo 

PE  AD  ( 5x909  I AOxUNI  Tx  NXPANx  JThp  TSxLEGENAx  LL  CK  ALxLLBU^ 

259 

261 

000 

909 

EBRMAT (2El0*0x2I5x  3L5| 

£ 60 

262 

OOO 

c 

VECTORS  RU-PIUI  AND  RUB-RlUI+B  ARE  STOKED  IN  UNITS  OF  UN  I T f A 0 

261 

263 

ooo 

KR  ITE  ( 6x  910  1 AOx  UN  IT  xNXP  ANx  JTHPT  8x  LUGENAxLlCKAEx  LIRIJF 

£ 6 £ 

26* 

ooo 

910 

FORMAT  1 ' 1 ' x ' AO  - ’ x F 7 * * x ' UNIT  -l*F7.*x'  NXPAN  -Ixlix 

£63 

265 

ooo 

1 

1 JTHPT  S ->,!*,<  LLOtNA  - * x L2x 1 LLWKAL  -’xL2x 

2b* 

26b 

ooo 

2 

' LLBUF  x'xLZI 

265 

26  7 

ooo 

c 

CALCULATE  NEIGHBOR  DISTANCES 

£ 6 6 

268 

ooo 

IF  (ELNAOA)  GO  TO  1? 

267 

269 

ooo 

HP ITE 1 bx  9105  ) 

268 

270 

ooo 

9105 

Fl*RM  AT  ( ' o ' x ' AA  NEIGHBORS  IN  UNITS  OF  UNIT*  AO  ' 1 

£69 

271 

ooo 

HU  I N X — 0 

270 

272 

ouo 

DP  10  MuSET-lxNSETS 

2/1 

£73 

ooo 

MUL I m*NA  ASET  (MjSfcT ) 

£72 

27* 

ooo 

HP1TEI 6x9111 

£73 

£75 

ooo 

91  1 

ftphat ( ' 1 ) 

2/* 

276 

ooo 

DP  9 MU— 1 X HULIO 

£ 75 

£7  7 

ooo 

hOITE(6x912)  IRU|MUINX*1  lx  I R U I MU  IN Xt 2 I x 1 RU 1 MUI NX *3  J 

£ 76 

278 

ooo 

912 

FORMAT ( 1 ' x 3 I * I 

£77 

279 

ooo 

RU  t MUI NX  *1  )-FlOAT|  1PUI MUINX+1  ) 1 

£78 

280 

ooo 

RU(MUINX*2|-FlOAT| IRU( MUINX*2I 1 

2/9 

281 

ooo 

(MUINXO  l-F^OAT  < IRU(MUINX43)  ) 

£00 

282 

ooo 

9 

miiinx-muINX*3 

£01 

28  J 

ooo 

10 

AADlST|PUStTl-S8RT(RU|MUINx-2l**2*Ku|MuINX-ll**2*PU(MulNxl»f£l 

2 82 

284 

ooo 

t U N 1 T*  AO 

£03 

285 

ooo 

call  put  i i aapi  st xnse ts x z aadi  s i 

£ 

- 

286 

ooo 

12 

IF  ( LL  NA  OX  1 (ie  10  It 

285 

28  7 

ooo 

HPITEI b#  9131 

2a6 

288 

ooo 

913 

format  ('  0»  $'  ax  neighbcws  i^  units  M uMT**o'i 

£07 

289 

ooo 

MUINX-0 

£80 

290 

ooo 

DM  1*  MUSE  T-lx  NSET  S 

289 

291 

ooo 

mulT  m.na  XStT  (MuSET  1 

£90 

292 

ooo 

HR  I T E ( 6x  91  1 1 

291 

29  3 

OOJ 

O*  13  Mti»l#rULl^ 

£ 9£ 

£94 

ooo 

-P  T T E ( 6x9121  IRUB(MUINX*l),IRUBIMUINX*2lxIKUB(M0  1NX*3l 

£93 

295 

ooo 

RUB(  MU  INX*  1 ) -F  LP  AT  ( I RUBI  MU  I NX*  1 1 ) 

£94 

296 

ooo 

OlfHiMi  Inx*2)  -FLOAT  ( IRUBI  MUINX*2I  1 

£ 95 

297 

ooo 

RUBI INX* 3 1 -F  LOAT ( I RUBI MU  I NX* 3 1 1 

29  to 

298 

000 

t J 

MU  IN  X*  MU  I N X + 3 

d*r 

299 

000 

1 9 

4X01  ST  [MUSFT  i*SOiRT  (RUB  (MUI  NX -2  1 * »2  tR  OB  1 MUI  NX  - 1 ) » *2  ♦«  UB  1 PUl  N*  1**2  1 

298 

300 

000 

i n/NiT»»o 

d 99 

301 

000 

CALL  PUT1  I AXPI  ST,NS£  TS*Z  AXDI  SI 

iou 

302 

000 

c 

CALCULATt  PARTIAL  INDICES  F0 R 0IRECT  ACCESS  OF  ALPHA  FUNCTIONS 

JU1 

30  3 

ooo 

1 to 

IF  ( LL  NASA  ) ae  TO  18 

302 

30* 

000 

L A D 1 NX  (l)-o 

J 03 

30d 

000 

LARI  NX ( 1 l»0 

3o4 

306 

000 

r>0  17  L1-WLAP1AX1 

30b 

30/ 

ooo 

LARI  NX (L 1* l 1 «L AR INX( LI l + LTOAFN (LI  1 

J(j6 

308 

000 

1 7 

LAnlNX(Ll*ll»LADINX(Lli*Ll»LTBAFMLi) 

JO/ 

309 

000 

if  (Lldtali  Call  i euTi  il  ar  in  x*  lama  xj  *i*  zlarnx  i 

308 

310 

ooo 

IF  (LLDTALI  CALL  lOUTl lLADINX,LAMAXi*l,ZLADNX) 

309 

311 

000 

NREC-NEI  GHA»LADI  NX  (L  AMAX  !♦  I | +1 

310 

312 

ooo 

IF  (LLGENA.BR.LLCKAL 1 

ill 

313 

ooo 

1 CALL  CK  ALPP  ( I AAFLEa  NREC* ALPmA  * M XP  TS  * M XP  AN  * L LG  EN  A J 

312 

31* 

ooo 

18 

if  (llnaoxi  ae  to  ao 

313 

31b 

ooo 

LXDI NX ( 1 ) *0 

314 

316 

ooo 

LXP I NX ( 1 > - 0 

31b 

31  / 

ooo 

OB  19  L1*1*LXMAX1 

316 

318 

ooo 

LXRINX ( L 1 ♦ 1 1 •LXRINXI LI  1 *LTOXFN (LI 1 

31  / 

319 

ooo 

1 9 

LXDINX  ( L 1 * 1 )»LXDINXIL1  H-L1»LT6XFn(L4  1 

318 

320 

ooo 

IF  (LLDTALI  CALL  I BD T 1 ( L XR IN  X , LX M A X l ♦ 1 , ZLX RN X 1 

3 1 y 

321 

ooo 

IF  (LLDTALI  CALL  I BD  T 1 ( L XD  I N X,  L X MA  X J ♦ 1 * l LX  ON  X ) 

32u 

322 

ooo 

NREC«nEIGHA»lXDINX(LXMAX1»1)+1 

321 

32  3 

ooo 

IF  ( LLGENA «BR. LLCKAL > 

322 

324 

ooo 

1 C»LL  CKALPFM  IXXFlE*NREC*ALPmA*MXPTS*MXPAN,LLGENA| 

323 

32b 

ooo 

20 

IF  ( LLNABA  .(IRi  LLNA  9X  I GB  TS  2005 

324 

326 

ooo 

nREC-NE'IGHX*laOINX(lARAX1*1  1 

32t> 

32/ 

ooo 

IF  ( llgena  • BR  • LLCKAL  1 

326 

328 

ooo 

I call  CK ALPH ( I AXFLE/ NREC» ALPHAxMXP TS/MXPAN/LLGINA 1 

327 

329 

ooo 

NREC»NEIGHX»LXDINX ILXMAX1*1 I 

32  8 

3 30 

ooo 

IF  ( LLGENA  .0R, LLCKAL  1 

329 

331 

0 00 

1 CALL  CX  AL  PFt  ( I X A FL  E * NR  £C  * ALPHAaMXP  TS*MXPAN*LLGtNA  1 

3 30 

332 

ooo 

2005 

Dfl  2008  1*1* MXPT  S 

331 

333 

OOO 

VCZAFN  ( I 1*0.0 

332 

334 

ooo 

VCZXFN ( I 1*0.0 

333 

33b 

ooo 

VNC  AFN 11  1*0.0 

334 

336 

ooo 

2008 

VNCXFM  I 1*0.0 

33b 

337 

ooo 

IF  1 .NBT  .LLGENA  i (IB  TP  36 

330 

338 

ooo 

IF  ( LL  A*  A 1 CALL  VNC  ( RANL*  L AM  AX  1 * l8CAFN,L  T6  AF  N*  8AME  »N*  I AB  TS* 

33/ 

339 

ooo 

1 VNCAFN/FRA 1 

338 

3*0 

00  o 

IF  ILLABXI  CALL  VNC  1 RXNL»L  XMAX  1 * LBCXFNjL  T8XF  N*  RXMF  I *BTS» 

3 39 

34  1 

ooo 

1 vncxfn,frx 1 

340 

3*2 

ooo 

*RITE(6»9I32|  (I»RAMESH(II,VNCAFN(lI* 

34! 

3*  3 

ooo 

1 RXMESM ( I 1, VNCXFH 1 11  A 1*»* "XPT S 1 

342 

3*  4 

ooo 

9132 

F*RMAT('  ' » 3x ' I ' /9X ' Rahesh ' , »x ' a T8MJ c LBUL  a' 

343 

34b 

ooo 

1 10X  ' RXF1ESP  ' * »X  ' ATBFUC  COLIL  X'/ 

344 

3*6 

ooo 

2 ('  ' . I ** AX1P2E I* "5/5X2E 1 *-B 1 4 

J4b 

3*  7 

ooo 

c 

EXPAND  'A'  BRBITALS  abbot  SITE  'A( 

J **  6 

3*8 

ooo 

c 

EXPAND  'X'  BRBITALS  APBUT  SITE  'X' 

347 

3*9 

ooo 

I A AUNM • 1 

348 

3b0 

ooo 

IXXUNM-1 

J4y 

3b  1 

ooo 

(V>  ?9  MOSF  T.  1 , NE  IGMA 

3 bo 

352 

ooo 

AA -A  ad  1ST ( MUSE  T 1 

3b  1 

35  3 

ooo 

A A RB  RS  *F  LP  A T (NAAbETiMUSETl 1 

Jb2 

35  4 

ooo 

If  (LLNABAI  OP  TB  2b 

3b  3 

35  b 

ooo 

CALL  F XP  and  1 o*  L"A»  1*  VNC*FN*0»RAME8RaHXPT  S<  IAPTS*AA, 

Jb4 

356 

ooo 

1 ALPHA,  MX  PAN*  1,  RAM£SH,ZAH,HMBA,MA,I  APTS*JTHBTS, 

Jbb 

35/ 

ooo 

2 .F  AL  BF  • » 0*  0>  LLDT  AL  ,L  L»OF  1 

Jbo 
Jb7 
Jb8 
3b9 
JbO 
J 6 1 
962 
3b3 
3b* 
Jbb 
366 
3b  7 

368 

369 
3/ o 
3/1 
373 
3/3 
3 7 * 
37  b 
376 
3/7 
3/8 
3/9 
38U 

381 

382 

383 
38* 
38b 
386 
38/ 

388 

389 

390 

391 

392 

393 
39* 
39b 
3 96 
39/ 

398 

399 
*00 

♦ 31 
*02 
*0  9 
*0* 
*ub 

♦ 36 
*07 
*38 
*39 
*10 
*11 
•12 
*13 

♦ 1* 
» 1 b 


3b  a 

000 

3b9 

000 

360 

000 

36  1 

000 

362 

000 

363 

000 

36<* 

000 

36b 

000 

36  6 

ODD 

36/ 

ooo 

36# 

000 

363 

000 

370 

000 

371 

000 

372 

ooo 

373 

000 

374 

ooo 

37b 

ooo 

376 

ooo 

37  7 

ooo 

378 

ooo 

379 

ooo 

380 

ooo 

381 

ooo 
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ooo 

383 

ooo 

384 

ooo 

38b 

ooo 

386 

ooo 

38  7 

ooo 

388 

ooo 

389 

ooo 
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390 
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ooo 

392 

ooo 

393 

ooo 
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ooo 

39b 

ooo 

396 

ooo 

39  7 

ooo 

398 

ooo 

399 

ooo 

400 

ooo 

401 

ooo 

402 

ooo 

4 03 
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404 

ooo 

40b 

ooo 

406 

ooo 

40  7 

ooo 

408 

ooo 

409 

ooo 

410 

ooo 

41  1 

ooo 

412 

ooo 

413 

ooo 

414 
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41b 
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DP  2105  1*1/ IAPTS 

2)  05  VCZAFN  ( I )»  VCZAFN  (1  !♦  AABPRS  *ALPHA  | 1 1 1 ) 

INXFN»0 

DP  23  L1*1/LAHI1 
L*L1 -1 

LT0FN*LT0AFN  It  1 ) 

IF  (LTaFN.E0.0l  G8  TO  23 
DP  22  J-l/LTOFN 

CA  u E XPANDI  L/  LM  AX  1/  RANL  / I NXFN/R  AMESH/  PXPT  3/  I APT  S/  A*. 

1 ALPHA/  MXPAN/  NXPAN/  RAMESH/Z  AR  / RHP  A/  HA  / I AB  TS/QTHPIS/ 

2 . THUE • / I AAFLE/ 1 A AU NO/ L LOT A Li LLBUF  > 

22  INXFN*INXFN*IAPTS 

23  CONTINUE 

25  IF  ( LL NA 0X ) GO  TP  29 

CALL  E XPANOI  0 / LM  AX  l / VNCXFN/  0/RXMESH/  MXPT  S/  ixpt  s<  a a / 

1 AL  PHA/  MXPAN/  1/  RXMESH/Z  XR  /RHPX/  MX  / l XPTS/ JTMPT  S/ 

2 .1  ALSE  ./0/O/LLDTAL /LLBUF  I 
DP  2505  1*1/ IXPTS 

2505  VCZXFN  1 1 )- VCZXFN  I I I*  A A 80  RS*  ALPHA  ( J * 1 ) 

INXFN-0 

DP  27  LI *1 /LXHI1 
L-Ll-1 

LTPFN*LT8XFN | L 1 ) 

IF  (LT3FN.EQ.0I  GP  Tp  27 
OP  26  J*1/LTBFN 

CALL  EXPANDIL/LMAXl/RXNL/INXFN/RXMESH/MXPTS/ IXPTS/AA/ 

1 ALPHA  / MXPAN/  NXPAN  / RXMfcSH/ZXR/RHPX/  NX  / I XR  TS/JTHPT  8/ 

2 .TRUE./IXXFLE/ IXXUNM/LLD TALz LLBUF) 

26  INXF n* INXF N* IXPTS 

27  CONTINUE 
29  CONTINUE 

EXPAND  'A'  ORBITALS  ABOUT  SITE  'X' 

EXPAND  'X'  ORBITALS  ABOUT  SITE  'A' 

IF  | LLNAOA.OR.LLNAOX I GP  TO  35 

I A XII  NO  *1 

IXAUNM-1 

DP  3*  MUSET*!/ NE  IGHX 
AX -AXDIS  T ( MUSE  T I 
AXBPRS*FLPAT  I NAXSE  T I MUSE  T I I 

CALL  EXPANDI  O/LMAXl,  VNCAFN,0/RXMESM,MXPTS,  IXPTS/  AX/ 

1 ALPHA  / MX  PAN/  1/  RA  ME  SH/Z  AH/ R HO  A/  HA  / 1 APTS/ Q T MPT  S/ 

2 .FALSE  ./O/O/LLDTAL/LLBUF  I 
Do  2901  I*l» IXPTS 

2 901  VCZXFNI  I ) • VC  Z X FN ( I l*AXBORS*ALPHA | I / 1 I 
INxFN*0 

OP  290*  U-1/LAmJI 
L-L1 -1 

LT  37 N*LT0AFN | l 1 ) 

IF  ILT0FN.EQ.0I  GO  TP  290* 

Dp  2902  J* 1 / LT  OF  N 

call  f xpandi  t / lhax  i , ra nl / i nxfn/Rxpesh,  mxpt S/  ixpt  S/  ax/ 

1 ALPhA#MXPAN/NXPAN/RAME  SH  / Z AH  / R HO  A / HA  / I AXTS/JTHPI  S/ 

2 .TRUE . / 1 axel  E/  I A XUNM/LLDTAL/ LLBUF I 
2902  INXFN-INXf  N*IAPTS 

290*  CONTINUE 

CALL  EXPANDI0/LM4X1, XNCXFN,0/RAMESH,MXPTS,IAPTS/AX/ 

1 alphA/Mxpan/1/Rxmesh/Z*R/RHPX.hX/IxptS/jThptS/ 

2 .FALSE./0/0/LLDTAL/LLB3F  I 
DP  2906  1*1/ IAPTS 

2 906  VCZAFNII  l-VCZAFNI  I I*AXB0RS»ALPHA|Ia1| 
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JNXFN«0 

*u 

419 

000 

OP  31  L1-1aLXHI1 

4 18 

420 

000 

LTPFN»lTOXFN (LI  1 

4 1 9 

421 

000 

IF  (LT5FS.EQ.0I  GO  T0  31 

4 <2  0 

422 

000 

l-Ll -1 

421 

4 23 

000 

on  30  J»1aLT0FN 

422 

42  4 

000 

CALL  EXP  ANO(  La  LPAX  1 a RXNL  a I NXFNaR  AMSSHa  MXPTSa  IAPT  Si  **a 

4Z3 

42b 

000 

1 

ALPH  Aa  MXPA  Na  NXPANj  RXPRSHaZ  XH  aRHPXa  HXa  I XR  TSaJTHRI  Sa 

424 

426 

000 

2 

• TRUE. a I XaFLEa IXAUNMaLLDTALa  LLBUF I 

4Zb 

42  7 

000 

30 

INXF  N« INXF  Nf IXPTS 

4 2 to 

428 

000 

31 

CPNT  INUE 

427 

429 

000 

34 

cn  NT  INUE 

428 

430 

000 

35 

IF  ILLOTALI  RR  I T E ( 6a  91  34  1 ( I a R AN  ES  H ( I | a V CZ  AF  N ( I I a R KB  tSH  ( I 1 a 

429 

-*3  1 

000 

1 

VCZ XFNI J1aJ-1aMXPTS> 

4 30 

432 

000 

3134 

FPRHAT ( ' 0 ' a 3X ' I ' a9X ' RAHESH ' a 5X ' CBUL  LNVIPR  A'a 

431 

433 

000 

1 

9X’  RXHESH  ' a 5X  'C0UL  ENVI8R  X'/ 

* 32 

434 

000 

? 

('  ' a I 4a 4X IP2E 1 4 .5,5x2El 4 . 5 ) i 

433 

43b 

000 

00  3504  I»1aMXPTS 

4 34 

436 

noo 

vncafn (i i»o.o 

4 35 

437 

000 

35o4 

VNCxFNI I ) »0. 0 

4 3to 

438 

000 

IF  I ZAIHN.EQ.O-O ) G0  TH  37 

437 

439 

000 

CALL  PTI  0N  ( ZAI0N|  AMOLNQa  AXOi  STaNAXSE  T/ AAOI  ST/NAASE  T#NSXISa 

438 

440 

000 

1 

VNCAFN a RAMESNa  I APTS ) 

439 

44  1 

000 

CALL  PTI  ON  (ZXI  PN,  AMDLNGa  AXOISTaNAXSETa  AADI  ST  aNAASET|NSETSa 

4 40 

44  2 

000 

1 

VNCXFNa  RXMESHa  l XPTS  ) 

4 4 1 

44  3 

000 

DP  3506  IMaMXPTS 

4 42 

44  4 

000 

VCZAFNII )»VCZAFN(I I ♦ VNCAFN ( I 1 

4 4 3 

44  b 

000 

3506 

VCZXFNtl)*VCZXFN|I)4VNCXFN|I> 

4 4 4 

446 

000 

GP  TP  37 

4 4b 

44  7 

000 

36 

IF  ( -NPT .LLGENA.ANO* .NOT .LLCKAL)  GP  TO  38 

4 46 

448 

000 

IF  (LLA0A)  IAAUNM-NEIGHA»LADINXI LAMAXl+l 1*1 

4 4 7 

449 

000 

IF  (LLAPX)  I XXUNM*NE IGHA »L XD INX ( LXMAX1*1 )♦ 1 

4 4 6 

450 

000 

37 

CALL  IP  VCZ(  LLGENA  aLLAPA  aLLAPX  a VCZAf  Na  VCZXFN  a I APTS  A 1 xPXSa 

4 49 

451 

000 

1 

ALPH  Aa  MXPTSa  MXPANa  I a AFLt  A I AAUNPa  1XXF  LE  A l XXUNM  | 

450 

452 

000 

RPITE(6a9136I  ( I aRAMESHI  I ) aVNCAFNI n a VCZAFNt II  a 

4b  l 

453 

ooo 

1 

RXMESHl I) a VNCXFNI Ha VCZXFNI I ) aI-IaBXPJS ) 

4b2 

4b4 

000 

9136 

FPRPAT ( ' 0 ' A 2X ' 1 ' a9X ' RAPESH ( n ' a3x 1 IPN  LNVIPR  A'a2XITBT  ENViBR  A'a 

4b3 

455 

000 

1 

9X ' RXPESH ( I 1 ' a 3X ' IPN  ENVIOR  X'aZXITOT  INVJCR  X ' / 

454 

456 

000 

2 

1'  'aI4>4X1P3E14.5a5x3E14.5)  l 

4 bb 

45  7 

ooo 

IF  ( LLNAPA I GP  TP  3705 

4 bto 

458 

000 

K-0 

4b  7 

459 

oco 

JHAX-L AR INXI LAHI 1* 1 1 

4bd 

460 

ooo 

OP  3703  J«1aJHAX 

4b9 

461 

ooo 

OP  3703  I«1aJAPTS 

460 

462 

ooo 

K*  K ♦ 1 

461 

463 

ooo 

3703 

ORANL(<l»ORANL(K)*VCZAFN(II»RANLIXl 

-*62 

464 

ooo 

3705 

IF  (LLNAPX I Up  TP  3709 

463 

465 

ooo 

K«Q 

464 

46  6 

ooo 

jpax"l*RInxilxmii*;i 

46b 

46  7 

ooo 

DP  3707  J*1aJPAX 

466 

46  8 

ooo 

OP  3707  1 • 1 a JxPTS 

4 6 7 

469 

ooo 

K m K ♦ 1 

468 

4 70 

ooo 

3 70  7 

OPXNL 1 « 1 «DRXNL  ' K !♦ VCZXFN 1 1 1 4RXNL  ( X 1 

469 

♦ 71 

ooo 

C3709 

Call  ELAPSE! IPINUI 

4 /0 

♦ 71 

500 

3 70 9 

cpnt  inue 

«/i 

4 72 

ooo 

ctccc 

FMINU-FLPATI IPlNUI*1.0E-3 

» 72 

4 7 * 

ooo 

CCCfC 

TP inu«tm inu+fm inu 

4/j 

4/4 

0 oo 

CCCC  C 

MR  r 1 6/ 9095  ) FMJMJ/TMJNJ 

4/6 

ooo 

c 

rl  pc  h * s 
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4/6 

47  7 

000 

ccccc 

********Z*****/*******Z*Z***#Z**»*ffZZ#***»»**Z*444**4* 

4/7 

47  / 

005 

38 

IF(LLNAOA)  GO  TO  620 

4 /8 

47  / 

010 

no  601  I-1/LAMAX1 

4 /9 

47  7 

015 

601 

RE40(5/6*9)  NAM  I ) /NAG  I I 1 

480 

47  7 

0 1 fa 

WRITE!  6/651  ) 

481 

47  7 

017 

651 

FORMAT l/2Xz ' l J FAII/JI  XAE(I/J)I/1 

482 

47  7 

020 

DO  612  I *1 zL AM  AX  1 

48  3 

47  7 

025 

N-NAF! I ) 

4 84 

47  7 

026 

IF(N.FQ.O)  GO  TO  612 

48b 

47  7 

030 

DO  602  J*lzN 

486 

47  / 

033 

RE  AD  (5/648  > FA  (I  / J )z  XAF  ( 1/ J I 

48  7 

47  7 

034 

602 

WRITE! 6/650)  IzJ/FA(I/J)zXAF(I/J| 

488 

47  7 

035 

650 

format  ( 1 Xz  12  / IXz  12  / 1 Xz  I4/F  12 .8  ) 

489 

47  7 

03b 

612 

CONTINUE 

490 

477 

037 

WRITE!  6/653) 

491 

47  7 

038 

653 

FORMAT!/'  I J GA(IzJzl)  GAII/J/21  XAGII/J)'/) 

492 

47  7 

040 

DO  613  I-1/LAMAX1 

49J 

47  7 

045 

N«NAG( I ) 

494 

47  7 

046 

IFIN.EQ/O)  GO  TO  613 

49b 

47  7 

050 

DO  603  J*l/N 

496 

477 

053 

READI5/647)  GAII/J.l )/GA(I/J/2)/XAG( I/JI 

497 

477 

054 

603 

WRITE!  6/  652  ) I / J / G A { I/J/ll/GAl  I / J/  2 1 z X AG  ( I / J ) 

4 98 

47  7 

055 

65  2 

F 0 RM AT  ( 1 Xz  12/1  Xz  12/1  X/  I5/5X/  I5/1X/E12*8) 

499 

47  7 

056 

613 

CONT INUE 

boO 

47  7 

060 

649 

FORMAT (314 ) 

bOl 

477 

061 

648 

FORMAT ( 14/ F12.9) 

bo  2 

47  / 

065 

64  7 

FORMAT ( 2I4/F 12*91 

b03 

477 

070 

620 

IF(LLNAOX)  GO  TO  624 

bU4 

47  7 

075 

DO  621  I-1/LXMAX1 

bub 

47  / 

08  0 

621 

READ (5/649 ) NXF ( I I /NXG ( I I 

bu6 

47  7 

081 

WRITE! 6/ 6541 

bO  7 

47  7 

082 

65* 

FORMAT ( /2Xz ' I J FXII/JI  XXFII/JII/l 

b08 

4 7 7 

085 

00  632  I ■ 1 / L XM  AX  1 

b09 

47/ 

090 

N»NXF I I ) 

blO 

477 

091 

IF ( N *E  Q*  0 ) GO  TO  632 

b 1 1 

47  7 

095 

DO  622  J»l/N 

b 1 2 

47  7 

099 

RF  AD  ( 5 / 6*8  ) FX  ( I / J )/ XXF  ( Iz  J ) 

b 1 3 

47  7 

100 

622 

WRITE! 6/650)  J / J/FX! I/JI/XXFII/J) 

b 1 4 

47  7 

101 

632 

CONT inue 

bib 

47  7 

102 

WR ITE ( 6/ 655  I 

b 1 6 

47  7 

103 

655 

FORMAT!/'  I J GXII/J/ll  GXII/J/2J  XXG|I/J)'/I 

t>l/ 

*♦7  7 

105 

DO  633  I»1/LXMAX1 

b 1 8 

477 

110 

N»NXG( I ) 

b 1 9 

477 

1 1 1 

IF  ( N *E  U*  0 1 GO  TO  633 

b20 

47  7 

115 

DO  623  J ■ 1 / N 

b2  1 

47/ 

1 1 9 

READI5/647)  GXII/j/l lzGX(IzJ,2)/XXG(I/J) 

'odd 

47  7 

120 

623 

WRITE!  6/ 65  2)  I/J/GXI  I / J/  1 1 zGX  ( I/J/2|/XXoil/U) 

b2j 

47  7 

121 

633 

C"nT  inue 

b24 

4 7 7 

125 

62* 

IF  (LLNAOA  1 GO  TO  625 

b2b 

47  / 

1 30 

LPCF  T • 0 

b 2 8 

47  / 

135 

no  607  I-l/LAMAXl 

b2  / 

47  7 

140 

6C  7 

locet-lpeet  ♦ locafni: i 

b28 

4 7 7 

145 

00  608  I * 1 / L AM  AX  1 

b 29 

47  7 

146 

IF  IN AF  | I | . EO *0 • AND *N AG  1 I I • EO *0 > GO  TO  608 

b 30 

47  7 

150 

IF  |F  A!  I * NAF  1 II  1 . EO  *L  OC  FT  . A NO  *G  * 1 1/  NAG!  1 1 z 2 1 • Eb  *U  OC  F T 1 

b 31 

47  7 

155 

1 GO  TO  60  8 

b 32 

47  7 

160 

wRITEl6/643)FAiI/NAF(III/GA(I/NAGIlt/2l/L0:FTzI 

b 3 3 

4 / / 

165 

643 

format  I 1 « / 'F  A!  1/  NAF  1 I | )■  '/  J 2/  • SA  1 I *N  AG  1 1 Iz  2 1 »'  z I 2/ 

b 34 

47  / 

1 70 

1 'L«CFT.'zI2z  >I-'/I2) 

b3b 

47  7 

175 

CALL  EXIT 

536 

*77 

180 

608 

CONT INUE 

5 3 7 

*77 

185 

625 

IF  (LLNA0X ) G 0 T 0 611 

53a 

*7  7 

190 

LOCFT-O 

b jy 

*7  7 

195 

0e  609  I*1/LXMAX1 

b»U 

*7  7 

200 

609 

LP  CF  T*  LO  CF  T * LOCXFN(I) 

5*1 

*7  7 

205 

OP  610  I*1/LXNAX1 

5*2 

*7  7 

206 

IF  (N XF  ( I 1 . EO • 0 • AMD -NXG ( I 1 • EQ  • 0 ) Q0  TO  610 

5*3 

*7  7 

210 

IF  tF  XI  I / NX  F ( I)  ) . EQ  - L OCFT . A ND  »GX(  JjNXGI  I I / 2 I • EU  • L 0C  F T 1 

5** 

*7  7 

215 

1GP  TO  610 

b*b 

*7  7 

220 

WR  I T E < 6/ 6*2)  F X ( I / NX  F ( I)  1 / GX  ( I / N XG  |I  )/ 2 ) /L0CFT  z 1 

b*b 

*7  7 

225 

6*2 

F P RM  AT  { 1 X i • F X ( 1/  NX  F l I)  1-  ' / 12  / ' GX  ( I *N  XG  < I 1 / 2 1 » ' t 1 it 

5*7 

*7  7 

230 

1 'L0CFT  * ' / 12/  ' J «' / 121 

5*8 

*7  7 

235 

CALL  EXIT 

5*9 

*7  7 

2*0 

610 

CPNT INUE 

bbO 

*7  a 

000 

611 

READI5/91*)  NBLCHA j N9LCHX 

bbl 

*79 

000 

91  * 

FORMAT 1215 ) 

552 

*80 

000 

*R  I TE ( 6> 91 5 1 NBLCHA/ NBLCHX 

553 

*81 

000 

915 

FORMAT (' O' /' NBLCHA  • ' / 13/ ' NBLCHX  *1/13/) 

bjt 

*82 

000 

IF  ILLNAOA)  GB  T0  ** 

bbb 

*83 

000 

IF  ( NBLCHA «GT . 0 1 GO  T0  *0 

bbb 

*8* 

000 

39 

WRITEI6/916)  LLA0A/NBLCHA/ BBLCHA 

bb/ 

*8b 

000 

916 

FORMAT)'  '/'LLA0A  * ' / L 2/  1 NBLCHA  •'/I3/'  H9LCHA  *1/131 

bbS 

*86 

000 

CALL  EXIT 

bby 

*87 

000 

*0 

IF  ( NBLCHA .GT . BBLCHA 1 30  T0  39 

560 

*88 

000 

OP  *2  NBLCH-l/NBLCHA 

bbl 

*sy 

000 

RE  AD (5/91 65  t NAA/LAA 

562 

*90 

000 

9165 

Fprmat (215) 

bb  J 

*y  i 

9C0 

IF  ( NA A-LA A . LE *LTeAFN( LAA* 1 ) ) G8  TO  *1 

b6» 

*92 

000 

*P I T E ( 6/917)  NAA/LAA/LT0AFNILAA+1) 

bbb 

*9  3 

000 

917 

fpRmAT''  '/'ORBITAL  T0  BE  USED  FOR  BUILDING  BLOCH  1 

bbo 

*9* 

000 

1 'FUNCTION  DOES  NOT  EXIST'/ 

b b 7 

*9  b 

000 

'/'NAA  ■ ' / I 2/ ' LLA  ■ ' / 12* ' LT0AFNI LAA«I 1 «'*I2) 

bby 

* 9 b 

000 

CALL  EXIT 

bby 

*9  7 

000 

*1 

NA  ( NBL  CH  1 ■ NA  A 

570 

*98 

000 

LA(NBLCH)»LAA 

b 7 1 

*99 

ooo 

HT  0T  *2  »L  AA  ♦ 1 

b 72 

bOO 

000 

*2 

RE  40(5/918  1 (CA(NBLCH/I)/I*1/MT0TI 

b 7 j 

bOl 

000 

918 

FPRMAT  <8Fl J.O 1 

b 7* 

502 

000 

00  *3  NBLCH*1/NBLCHA 

b 7b 

503 

000 

NAA*NA ( N BL  CH ) 

b 7b 

50  * 

000 

LA  A*LA ( NBLCH ) 

b 7 7 

505 

000 

WRITEI6/919I  NBLCH/NAA/LAA 

b 7 a 

506 

000 

9 1 9 

FORMAT!'  '/'NBLCH  *'/IJ/'  NAA  .'.12/ ' LAA  *'/I 21 

b7y 

50/ 

000 

MT  0T  *2  *L  A A ♦ 1 

bao 

508 

ooo 

L 1 *L  A A ♦ 1 

bai 

509 

000 

00  *3  J-1/MT3T 

b82 

bl  J 

ooo 

H. J-Ll 

bay 

b 1 1 

ooo 

tNX-2* I ABS 1 M 1 

ba* 

bl  2 

300 

IF  1 H . LE • 0 ) INX*INX*1 

bab 

bl  J 

000 

* 3 

WP  I T E 1 6 / 920 1 LAA/H/CAI NBLCH/ INX) 

bbb 

bl  * 

ooo 

9?0 

fprmaTI'  ' / ' Y(  ' / 12/ ' / ' / 12/  ' 1 C » ('/ IBt 1 1 •*/'/' zE 11 •*/'  1 ' 1 

ba  7 

bib 

ooo 

00  T P *5 

b sa 

b 1 6 

ooo 

4 4 

IF  1 NBLCHA .N£, 01  GO  70  39 

bay 

517 

ooo 

45 

IF  ( LLNA0X  ) GO  T 0 Bl 

ayo 

518 

ooo 

r F 1 NPLCHX .&T.0)  GO  TO  *7 

by  l 

519 

ooo 

4b 

wRITFlb/921)  LLA0X/NBLCHX/HBLCHX 

bya 

520 

ooo 

92  1 

t p RM  A T 1 ' '/'UlAPx  • ' / L 2/  ' NBLCHX  • ' / I 3/  ' H BL  CH  X *'/131 

by  y 

521 

ooo 

C*LL  EXIT 

by* 

522 

ooo 

4 7 

IF  ( NBLCHX .GT. NBLCHX ) 00  TO  *6 

byb 

52  3 

(JOO 

OP  *9  NBLC H* 1/ NBLCHX 

59b 

b24 

000 

PF  AD  1 5 i 9 1 6 b ) NXX/LXX 

b9  7 

525 

000 

IP  t NXX-WXX*  Ut -LTBXF  N|  LXX  + 1 ) | 06  TB  *8 

t >98 

b2b 

000 

HR  I T £ ( 6,  922  ) NXX,LXX,LTOXFNI LXX+ 1 ) 

599 

52  / 

000 

922 

F0  RM  AT  l 1 ' , ' OR BI T A L T6  b£  USEO  F fl(J  Q JI lD  IN  j BLOCH  '1 

o 00 

b28 

000 

1 'FUSCTI6NS  DOES  NOT  EXIST'/ 

6GI 

b 29 

000 

' ','NXX  -',Ig,'  LXX  -',I2«'  LTOXFnI  LXX-1J  -'»I2| 

602 

530 

000 

CALL  EXIT 

6 0 3 

b3  l 

00O 

48 

NX  ( N0LCH  I ■ NX  X 

60X 

b32 

000 

LX  CNBLCH  J*LXX 

60b 

b3  3 

000 

MT3T»2*LXX»I 

6 J6 

b3  4 

000 

49 

RE  AD ( 5,9 18  ) (CX(  NBLCH,  I ) , I -1,MT0T  1 

6 0/ 

bib 

000 

00  50  NBLCH- J j NBLCHX 

608 

bib 

000 

NX  x • NX  I NBLCH | 

6jy 

b3  / 

000 

LX  X - LX (NBLCH  | 

6 10 

b38 

000 

HR  I TE 1 6/  92  3 1 NBLCH, NXX, LXX 

611 

539 

JQO 

923 

FORMAT!'  1 , ' NB  LC  H -',13,  • NX  X -'*ig,-'  LX  X -',I*| 

bl2 

b40 

000 

MT  0T  «2  *L  XX  ♦ 1 

61  J 

b4  1 

oou 

Ll-LXX+1 

6 1 4 

b42 

000 

Df  50  J*  1 > HT  QT 

tie 

b4  3 

000 

M- J-Ll 

0 1 0 

b4  4 

000 

INX.2» I ABS ( M | 

617 

b4b 

000 

IF  ( 0 • LE  • 0 I 1NX-INX*! 

6 18 

546 

000 

50 

« P I T £ ( 6/  920)  LXX/M, ext  NBLCH/  INX ) 

619 

b4  / 

oou 

GO  T 0 52 

6<f  0 

b4  8 

000 

51 

IF  ( NBLCHX «NE» 0 J GO  TC  4b 

621 

b4  9 

000 

52 

RE  AD  ( 5, 9232  ( LLETE,NLETE 

622 

550 

000 

9232 

FORMAT ( L 5, 15 1 

62i 

55 1 

000 

IF  ( .NOT -LLETE ) 06  T0  5250 

624 

b52 

000 

Rf  AD (5,923A ) (<LETE(I),I-1,NLETE| 

62b 

bb  3 

000 

923" 

FORMAT ( 1 61 5 ) 

6 2b 

b5  4 

000 

*P1TE(6,9236I  (xlETEiI  1,  I-l/NLETEI 

627 

bbb 

000 

9236 

p«rhat i ' o ' , ' basi s functions  tb  be  deleted'/i*  ',i6j»ii 

628 

556 

000 

IF  ( NLETE«LE .11  GO  TO  5250 

6 29 

55/ 

000 

no  52n  lLETt-2,  NLETE 

6 iO 

558 

000 

5210 

KLETEl  ILETEI  -KLETE  ( ILE  TE  )-IlETE*1 

6 i 1 

559 

000 

HR  I T E t 6,  92  38  I IklETE(II,I-1,NlETE| 

6 J2 

560 

000 

9238 

FORma’I'  ’, 'BASIS  FUNCTION  POSITION'/!'  ',161';) 

6 J J 

bb  1 

000 

CCCCC 

6 J 4 

562 

000 

C 

K vector 

bib 

bb  3 

000 

ctccc 

6ife 

564 

000 

5250 

NV  EC  *0 

b J / 

bbb 

0 00 

5290 

“EAD  5,92a,EsD-5»i  XKX,XKY,XKZ,IhT»LLQEN1,NE1GAC,N({10X(,«nvHSV 

6 J8 

bb  6 

000 

9?4 

PORhaT (3F10.Q,  15, L 5, 31 5 I 

639 

56  7 

000 

C 

VECTOR  K ASSjhED  T*  mAvE  UNITS  CF  2*PI/A0 

b»0 

56  d 

000 

C 

X VECT0R  USED  POR  GENERATING  INTEGRALS  SHOULD  BE  -Ell  *4  Th  |tx 

6 4 1 

563 

000 

c 

B5UNDPY  OF  S7HMETPY  ^ 9N E 

b*2 

570 

000 

IP  ( N£  Ir.AL  .L  t . NE  IQHt  . AND  .NEI  GXC.  LE  iNtl  OHX  I GO  TO  53 

6 4 J 

571 

000 

HR  I TE 1 6, 92X2  I N£ IGAC/NEI GXC 

6 44 

57g 

000 

92»2 

r»B"»T|'  ','NEIGAC  -',13,'  ANO/OR  NtIGXC  -',13,'  To*  LARUE'l 

64^ 

573 

oco 

CALL  EXIT 

6 4b 

57» 

000 

53 

IP  ( NE  IG*C  .E  U.  0 1 NEI  GAC-NE  IOHA 

6 4 J 

575 

000 

IP  (NEIOXC-EfifO)  NEI  jXC-NE  IGHX 

6 • 8 

57b 

000 

JP  ( .NOT  .LLP  WS  T 1 LLGENI-. FALSE  • 

6*9 

5 U 

0 00 

LLFRST-. FALSE, 

ebo 

b 78 

00  0 

IP  (NVECSV.EQ.O  1 NvECSv-NVEC 

• b 1 

579 

000 

NVEC-SVECSV 

■tP  n 

-0  HE  I 6,  92*5  1 XK  X,  XK  V,  XKZ,  I-T,  LL  0CN1  ,Ntl  3AC,  NE  IQXCNVEE 

1 «i 

58  1 

9245 

p-Rhat  ; ' O' , ' xx  x ■', Ell-5,  xkY  • i *E  1 1 <5  , ' XKZ  -',111,0, 

9l|t 

' IxT  •'  , 13, 

LLOtNl  •'iLJi'  NEIGAC  -',13,' 


NI  1UAC  • ' • J 3 , 


656 

584 

000 

6b  7 

585 

000 

6b8 

586 

000 

659 

58  7 

000 

660 

588 

000 

661 

589 

ooo 

6 62 

590 

ooo 

6 6 3 

590 

soo 

664 

591 

ooo 

665 

592 

ooo 

666 

593 

ooo 

667 

594 

ooo 

668 

595 

ooo 

669 

596 

ooo 

6 70 

59  7 

ooo 

671 

598 

ooo 

6 7£ 

599 

ooo 

6/3 

600 

ooo 

674 

601 

ooo 

675 

602 

ooo 

6 76 

603 

ooo 

677 

604 

ooo 

6 78 

605 

ooo 

679 

606 

ooo 

680 

607 

ooo 

661 

608 

ooo 

682 

609 

ooo 

683 

610 

ooo 

664 

61  1 

ooo 

685 

612 

ooo 

6 86 

613 

ooo 

6 1 7 

614 

ooo 

688 

615 

ooo 

669 

616 

ooo 

690 

61  7 

ooo 

691 

618 

ooo 

692 

619 

ooo 

693 

620 

ooo 

694 

621 

ooo 

695 

622 

ooo 

696 

623 

ooo 

697 

624 

ooo 

698 

625 

ooo 

699 

626 

ooo 

700 

627 

ooo 

701 

628 

ooo 

702 

629 

000 

703 

630 

ooo 

704 

631 

ooo 

705 

632 

ooo 

706 

633 

ooo 

707 

634 

ooo 

7u8 

635 

ooo 

709 

6 36 

ooo 

710 

637 

ooo 

711 

638 

ooo 

712 

639 

ooo 

713 

640 

ooo 

714 

64  1 

ooo 

715 

642 

ooo 

* ' N VEC  * ' 1 1 3/  ) 

Call  MTRX|NA»NX,L*»LX*FRA,FRX,LOC4FN/LOCXFN<LAHINX»1,XK1NX< 

1 UA  01  NX/LXD  I NX,  la  MAXI  ,l.XMAX  1/  CA /CX,  MB  LC  M*  x M tH.  CH  »x 

NBLCHAxNBLCHX,  RANIxR  XNLa  UR  an  Lx  DR  XN  Lx  ALPHA/  MXPT  px 
3 MX  PA  N/  NXPANx  RA  ME  SH  / R XM  ES  H/  IAPTSx  IXPTSx 

3 RUxRUBxUNJTxNAASETxNAXSETxNEIGHAxNEIGMXx 

b NE  IGAC  xNEI  GXCx  KLETEx  NLETEx  **  X#  XK  Yx  XK  Zx  JP  T»  NVECx 

b NAGx  NXGx  XAFx  XXFx  GAxGXx  XAlxx  XXGx  FRASPx  FRXJPx 

7 LLGENI  x I IF  ILEx  IA  AFLE  xl  XXFLEx  IAXF  |.Ex  I XAfLtx  JtVF  ttx 

1 LLNAOAxLLNABXxLLOTALxELBUFxNROJTxLLMTRXI 

CALL  ELAPSEI  I M I N U I 

fm  inu-float i iminui»i*oe-3 

tminu-tminu+fminu 

WR  ITE  I 6x  9095  ) FMINUxTMINU 

Qfl  Tfl  5290 

CALL  EXIT 

STOP 

END 

FUNCTION  FACT! I ) 

function  factiIi  determines  factorial  of  integer  i usury 
floating  point  arithmetic! 

WRITTEN  by  D • J.  M I C K I SH x FEBHUARYx  1972. 

LIMERR  * NUMBER  of  ERRORS  ALLOWED  BEFORE  JOB  18  TERMINATED 
data  limerr/io/xNERR/o/ 
fact-i .0 

IF  ( I . GE  • 0 ) GO  TO  3 
WR ITE ( 6x 1 I I 

FORMAT!'  'x*  NEGATIVE  ARGUMENT  IN  FUNCTION  F A CT  x RE  8U  L T • liVx'x 
1 ' ARGUMENT  » ' x I 1 2 I 

NE  RR -NERR- 1 

if  inerr.ge.lImerr ) call  exit 

RE  TURN 

IF  II.LE.ll  RETURN 
IF  I I • LE • 56 ) GO  TO  5 
WR I TE ( 6x ♦ I I 

FORMAT!'  'x'ARGUMENT  -'xl»x'  IN  FUNCTION  FACT  .GT.  16/ I 
1 ' RESULT  - 7. 23  7E  *75  ' I 

GO  TO  2 

FACT-FLOAT ( I ) 

XI -F  ACT-1 • 0 

I GREATER  Than  2,  COMPUTE  FACTORIAL 
IF  ( XI >LE. 1 • 0)  RETURN 
FACT-x i*fact 
XI  -X 1-1 .0 
GO  T 0 6 
END 

SUBROUTINE  I0UT1  ( I II  II  IxN,  ZZZZ  I 
dimension  iiiiniM 
RFAL-S  ZZZZ 
WRITE!  6/  1 I 

FORMAT  I 1H  ) 

wR  JTE I 6x2)  I ZZZZx Jx I II II  I ( J) X J-l/N* 

FORMAT!  IP*I  1 X A 6 / 1 H ( x I 3x  3H 1 -.1121  | 

RE  TURN 
END 

SUBROUTINE  OUT  1 ( XX  x>  xx  . n X Z ZZ  Z I 
n I ME  NS  ION  XX  XX  X X ( N ) 
pE*L*8  ZZZZ 
WR I TE I 6x 1 I 
format ( im  ) 


COMPUTE  factorial 


716  - 

717  - 

718  - 
7iy  - 

643 

644 
64?) 
64  6 

000 

000 

000 

QQQ 

2 

WRITE! 6/2)  IZZZZ/J/XXXXXX(J)/J-l*Ni 
FORMAT  ( 1 P4  ( 1 XA6/  1H  (/  13, 3H)  ->E  13  >6  11 

return 

END 

780  - 

64  7 

000 

SU6R9U  TI  N£  I R12K  (P3P4/  K/  SS/RME  SH  / J PJ  S/  XN  ) 

721  ~ 

648 

000 

DIMENSION  P3P4  ( 1 ),  SS  ( 1)/ RMESM(  1 ) 

7 d 2 - 

649 

000 

ccccc 

COMPUTE  AND  STORE  'R»»K'  I NT  EG  RA  ND 

723  - 

6b0 

000 

SAVES-0.0 

7 24  - 

6b  1 

000 

SA VESN-0 .0 

/2b  - 

652 

000 

RINT-RMESH ( IPTS/2) 

726  - 

653 

000 

DP  13  J-  3/  IP  TS  / 2 

727  - 

654 

000 

IE  ( J • NE • 3 ) GO  TO  11 

728  - 

655 

000 

R1 -RMESH (J-2 l/RINT 

72a  - 

656 

ooo 

El  -P3P4  t J-2 ) 

730  - 

65  7 

000 

RI K-Rl **K 

7 31  - 

658 

000 

R1K1I-1.QY 1BL*R1IU 

732  - 

659 

000 

QPI  TO  12 

733  - 

660 

000 

1 1 

RI  -R3 

7 34  - 

661 

000 

FI  -E3 

73b  - 

662 

OOO 

R1 K-R3K 

7 36  - 

66  3 

000 

R 1 K 1 I » R3K1 I 

737  - 

_66  4 

QQO 

12 

_R2 »R  M£_S.H  1 J - 1 1/ RI  NT 

738  - 

665 

ooo 

c2  »P  3P  4 | J- 1 ) 

739  - 

666 

ooo 

R2K-R2*»K 

740  - 

66  7 

ooo 

R2K1 1-1.0/ (R2*R2K) 

74  1 - 

668 

ooo 

R3-PMESH 1 J J/RINT 

742  - 

669 

ooo 

E3-P3P4  < J) 

743  - 

670 

ooo 

R3K“R3**K 

74h  - 

671 

ooo 

R3K1  1-1 .0/ ( R3*R3K ) 

74b  - 

672 

ooo 

H3- ( R3-R2 ) /3.0*RINT 

746  - 

673 

ooo 

SAVESN-SAVESN+H3*(F1*R1K1I+4.0»E2*R2K114E3*R3K1I) 

747  - 

674 

ooo 

SAVES-SAVES+H34(F1*R1K44.0*F24R2K*E3*R3K) 

748  - 

6 75 

ooo 

1 3 

SS(J)-(R3K1I4SAVES-R3K4SAVESN)/RJNT 

749  - 

676 

ooo 

DO  14  J-3/IPTS/2 

/bO  - 

67  7 

ooo 

R-RMESH ( Jt 

7bl  - 

678 

ooo 

19 

SS  ( J >-SS  ( J l + SAVESN*( R/RINT ) * *K /R IN T t XN/R 

7b2  - 

679 

ooo 

SS ( 1 l-XN/RMESH ( 1 | 

7b3  - 

680 

oco 

SS ( 2 ) -0 • 5* ( S S < 1 1 +SS ( 3 | ) 

7b4  - 

681 

ooo 

SS ( I PTS-1 > -0.5-1 SS ( IPTS-2) +SS<  IPTS  i 1 

7bb  - 

682 

ooo 

IPTS3-IPTS-3 

7b6  - 

683 

ooo 

DO  3 I-4/IPTS3/2 

7b 7 " 

684 

ooo 

R I -RMESH l I ) 

7bh  - 

685 

ooo 

RIM3-RI-RMESHI 1-3) 

7b9  - 

686 

ooo 

RIMl-RI-RMESHI 1-1 | 

760  - 

68  7 

ooo 

RI  1-RI -RMESH ( I +1  ) 

761  - 

688 

ooo 

RI 3-RI -RMESH ( I +3 ) 

762  - 

689 

ooo 

IF  ( I . NE • 4 I GO  TO  1 

763  - 

690 

ooo 

RI M3M1 -R IM1-R1 M3 

764  - 

691 

ooo 

RI M31-RI 1-RI M3 

76b  - 

692 

ooo 

RI Ml 1-WI 1-RIM1 

7 6 6 • 

693 

ooo 

SM3-SS 1 1 ) 

767  ' 

69  4 

ooo 

SM1-SS ( 3 ) 

766  " 

695 

ooo 

SI  -SS 1 5 ) 

769  - 

696 

ooo 

GO  TO  2 

7 70  - 

69  7 

ooo 

1 

R I M3  M 1 -R  I M 1 1 

771  - 

698 

0 00 

RIM3I-RIM13 

7/2  - 

699 

ooo 

RI  Ml 1-RI  13 

7 73  - 

700 

ooo 

SM3-SM1 

7 74  - 

701 

ooo 

SM1-S1 

7/b  - 

702 

ooo 

S1-S3 

7 76 

703. 

000 

2 RIM33-RI3-RIM3 

7 77 

704. 

000 

R I til  3.RI  3-RI  M; 

7 78 

705. 

000 

RI 1 3-R I3-R  1 1 

779 

706. 

000 

S3-SS! 1*3) 

780 

70  7. 

000 

3 SSII  )-SM3*RI  H1*R  11  »R  13/ ( RI  M3  Ml  »R JR3i*R  IM33  ) 

78i 

708. 

000 

1 -SM1*RIM3*RI1*RI3/(RIM3M1»RIMU.RJH131 

782 

/ 09. 

000 

2 ♦S1*RIM3*RIM1«RI3/(RIM31*RIM11»RJ13) 

783 

710* 

000 

3 -S3*RIM3*RIMl*RIl/(RIh33*RIH13*RIi3) 

78* 

711. 

000 

RETURN 

785 

712. 

000 

END 

786 

713. 

000 

SUBROUT  I NE  R W(  LOC,  IE  ILE,  BUFFER,  I *0RDS,  LL  NRT,  LLBUF  ) 

787 

714. 

000 

DIMENSION  BUFFER ( IWORDSl 

788 

715. 

000 

LOGICAL  LLRRTaLLBUE 

789 

716. 

000 

IF  I LLBUFI  GO  TO  2 

790 

717. 

000 

IE  ILLWRT)  GO  TO  1 

791 

718. 

000 

readiieiiu  buffer 

792 

719. 

000 

RE  TURN 

793 

720. 

000 

1 WRITE(IFILE)  buffer 

79* 

721  . 

000 

return 

795 

722. 

000 

c 

2 t WORDS* I WORDS* 2 

796 

722. 

500 

2 CONTINUE 

797 

723. 

000 

IF  ILLWRT}  GO  TO  3 

7 98 

72%  . 

000 

CALL  BUFFER  I N ( I FI  L£,  1 , BUE  EE  R,  I w B.  DS* J NO/ N 1 

799 

725. 

000 

GO  TO  * 

800 

726. 

000 

3 CALL  BUFFER  OU  T ( I F IL  E,  1 , BUFF  ER  , I K«RD  S , IN  D,  N 1 

801 

72  7. 

000 

* IE  ( IND.NE .2 | GO  TO  5 

802 

729. 

000 

c 

♦3  twORDS-I WORDS/2 

803 

729. 

500 

*3  CONTINUE 

80* 

730. 

000 

RETURN 

805 

731. 

000 

*5  IE  (LL"RT)  GO  TO  5 

806 

732. 

000 

IE  ( N. EO . J WORDS- 1 J W0RDS/81 92 ) *81 8* 1 GO  TO  *3 

807 

733. 

000 

5 WR ITE ( 6/  900  ) LOC,  IEILE<  IWOROS/ INOaN.UI-RRT 

808 

734  . 

000 

900  FORMAT!'  '/'JO  ERROR  USING  BUFFER  IN/flUT  SUBROUTIN||'/ 

809 

735. 

000 

1 ' '/’LOCATION  i,I3,'  Flu*  '*13,'  NO.  W0RIJ8  AlTE.gTED 

810 

736. 

000 

2 I 5a  ' IND  -',12,'  N. « WORDS  TRANSFERRED  *!*I|* 

811 

737. 

000 

3 ' LL“RT  - ' , L 2 1 

812 

738. 

000 

CALL  EXIT 

813 

739. 

000 

END 

81* 

740. 

000 

C J 

ASSIGN  M!BO, IFIL£aME*PAND),|SAVE) 

815 

741  . 

000 

CIFORTRan  LS,B0,ADP 

816 

742. 

000 

SUBROUTINE  E<PAND(L,LMAXl,RNL,INxrN.RONE,MxPTSl,IPI|l,A. 

817 

743. 

000 

1 ALPHA,  MX  PAN,  NXR*N«RTw0,Z2R,RH02,  M|,  I.T82* 

8 18 

74%  . 

000 

2 JTnPTS,LLOUT,  I PILE.,  IUNLM,  LLOTALaLLBKF  1 

819 

745. 

000 

01  ME  NS  ION  RNLIll«RONE(ll,RTwOlll,ALPHA(MXPTSl,NXPANl 

820 

746  • 

000 

OIMFNSION  CThi 101 1 ,STw( 101 l,CCTH(  30301, RRSTRl  30301, PLR (381* 

821 

7 4 7 . 

000 

1 PKMTHS  ( 3030  ) ,RLOEF  ( 30301«RNLRTM(  30  30  ) * R^  MC  TH  ( *030) 

822 

748. 

000 

2 BUFFI!  3030),BUFF2I  30J0i 

823 

74  9* 

000 

COMMON  WORK! l6i, 31 ) 

82* 

750* 

000 

EQUIVALENCE  (PKMTHS!  3030  )*  WORK  1 I 6 1 a 3 1 ) 1, 

825 

751  . 

000 

1 I BUF  El  ( 1 ),  CCTm  ( 1 1,  RNlRI.  1 1 I*  RCOEE  I 1 1 ), 

826 

752. 

000 

2 (BUEF2  1 1 | * RRSTRl  l I ,PLMCTm(  1 ) ) 

827 

753* 

000 

LOGICAL  LLTH,LLR1A,H.0JT,LLDTAL»U.»U* 

828 

754. 

000 

data  D l / 3 * 1*15926535897932/, ATEMP/OaO/, 

829 

755* 

000 

1 IPT61T/0/,R1LOw/0.0/,R1mI/0.0<'» 

8 30 

756* 

000 

2 I PTS2T/0/,B2LPw/0»0/, R2mJ  /O • 0/. 

831 

75  7. 

000 

3 jTMPTT/0/,LMA*lT/0/,LTV*l/,MTXfl/ 

832 

75  8. 

000 

DATA  I F I LEO/  20/,  IF  ILE  l / 2 1/,  1 FI  LEI/22/a  IE  ILE3/23/*  I FILE  •/  2*  A • 

833 

759. 

000 

1 IFILE5/25/ 

83* 

760* 

000 

DATA  M XTMP  T , 101/ ,MXF  ANT/ 30/,  MXPTiT/161 /,  NR  wT  / 30/ 

835 

76  1 • 

000 

IPTSU*lPTSl*l 

6 3b 

761 

500 

c 

change  HEBE  FOR  RE  AL  *8  ALPHAS 

637 

762 

000 

IALPTS-MXPTS1»MXPaN 

636 

763 

000 

jthpan*jThpts»mxpan 

8 3? 

76* 

QQQ 

JTHPT3-JTHPT  S»3 

840 

765 

000 

J5THPT ■5*JTHPTS 

841 

766 

000 

NRW5T-NRWT/5 

842 

767 

000 

c 

DIMENSION  WORK  (MXPTSTa  MXPANT*1  1 

843 

768 

000 

c 

CTHaSTHI  MXTHPT  I 

844 

769 

000 

c 

CC  TH  , B RS  TB  , R CO  EF  , B UF  F 1 , * NL  BT  Ha  PL  MC  TH  , B UF  F 8 ( N R*  T4  BUM  PT 

845 

779 

000 

c 

PLfll  MXPANT  1 

846 

771 

000 

c 

PK NT HS ( M XP AN T» MXTHPT  1 

847 

772 

000 

c 

PROGRAM  REQUIRES  MXPTST.QE  .MXTHPT  AN p NR  wT  BE  A MULTIPLE  CE  5 

848 

773 

000 

Ll-L+l 

849 

7 7 4 

000 

LMAX»LMAX1-1 

8 50 

775 

000 

IF  I MXPTS1 .LEiMXPTST 1 GO  TO  1000 

8 b 1 

776 

000 

WRITE!  6/  8991  M XP  TS  1 a MX  PT  ST 

8b2 

777 

000 

899 

format i * '/'mxptsi  •iiI4)'  .gt.  nxptst  •I»I*< 

853 

778 

000 

1 ' IN  SUBROUTINE  EXPAND1 1 

854 

779 

000 

CALL  EXIT 

855 

780 

000 

1000 

IF  ( MX  PA  N.  GT  .L  MA  X . AND  , MX  PAN.  LE  "MXF  ANT  1 00  TO  1 

856 

781 

000 

WRITE(6/  900I  LMAXa  MXPANa  MXPANT 

857 

782 

000 

900 

FORMAT!'  'a'LMAX  • ' a 12/  1 MXPAN  -'aIJa'  MXPANT  "'/Hi 

858 

783 

000 

CALL  EXIT 

859 

78» 

000 

1 

IF  (L.LE'LMAX)  GO  TO  2 

860 

785 

000 

WRITEI6/901I  L/LMAX 

861 

786 

000 

901 

FORMAT!'  'a'L  “ ' a I 2a  ' SENT  TO  SUBROUTINE  EXPAND  TOIJ  LANGE  '» 

862 

787 

000 

1 ' (LMAX  ■ ' a I 2 a ' ) ' 1 

869 

788 

000 

CALL  EXIT 

864 

789 

000 

2 

IF  ( JTMPTS .LE .MXTHPT 1 GO  TO  3 

865 

790 

000 

WRITEI6/902)  JThPTSa MXTHPT 

866 

791 

000 

902 

FORMAT!'  'a'JTHPTS  • ' a 1 4 a ' SENT  T8  SUBROUTINE  EXPAND  TOO  LANGE  ' 

867 

792 

000 

1 ' | MXTHPT  • ' a l 4a ' ) ' ) 

6o6 

793 

000 

call  EXIT 

869 

794 

OQO 

3 

IF  | NXPAN.LE .MXPAN 1 GO  TO  4 

870 

795 

000 

WR  I T E 1 6a  903 ! NXPANaMXPAN 

871 

796 

000 

903 

FORMAT!'  1,'NXPAN  -'/I3a'  SENT  TO  SUBROUTINE  EXPAND  TOO  LANGE  'a 

872 

79  7 

000 

1 ' | MXPAN  * 'a  I 3 a ' ) ' 1 

873 

798 

000 

CALL  EXIT 

874 

799 

000 

4 

IF  ( IPTS1 .LE .MXPTSI ) GO  TO  5 

875 

800 

00  0 

WR I TE ( 6/ 90  4 ) IPTS1/MXPTS1 

8 76 

801 

000 

904 

FORMAT!'  ' a ' IP  TS 1 ■ ' a I 4 a ' SENT  TO  SUBROUTINE  EXPAND  TOO  LANGE'a 

877 

802 

000 

1 ' (MXPTSI  •' A 14/  ' 1 ' 1 

8 78 

803 

000 

CALL  EXIT 

879 

804 

ooo 

5 

lltm-. false. 

880 

805 

000 

c 

COMPUTE  CONSTANTS  IF  JTMPTS  MAS  BEEN  CHANGED  OR  LMAI1  MAS  BEEN 

881 

806 

ooo 

c 

INCREASED 

882 

80  7 

000 

c 

SIN ( theta  > 

883 

808 

ooo 

c 

COS  1 The  TA  i 

884 

809 

ooo 

c 

PIKaM ) ( cost TMETAI 1 » SIN(Th£TA1  (FIlEOI 

885 

810 

ooo 

IF  ( JTHPTS  .EQ.  JTHPI  T .AND  .LMA  XI  .LE  • LMAX1T  1 GO  TO  9 

886 

811 

ooo 

LL  TH-. TRUE . 

887 

812 

ooo 

JTHPTT-JTMPTS 

888 

813 

ooo 

LMAX1T*UMAX1 

889 

814 

ooo 

DTh. PI /FLOAT (jTHPTS-1 1 

890 

815 

ooo 

DTH3«DTh/3 .0 

891 

81  6 

ooo 

XJ-O.O 

8 92 

81  7 

ooo 

DO  6 J»lAjTHPTS 

893 

818 

ooo 

TH*XJ4DTM 

894 

819 

ooo 

CTH(  Jl -COS  I Tm| 

835 

820 

ooo 

STHI Jl >SIN I Thi 

L 


821 

000 

6 

xj«x  J*  1 .0 

822 

000 

00  8 H1*1,LH»X1 

823 

000 

H.M1 -1 

824 

000 

L I M»  MX  PA  N"  M 

8 25 

000 

DO  7 J “ 1 1 J TWPT  S 

826 

000 

CALL  LEOEN  IMXPAN«l>M<CTH  ( J I,  PL  Ml 

827 

000 

SINTM-STHI  J) 

828 

000 

INOE** j*M»JTMPTS 

829 

ooc 

DO  7 LL-IiLIM 

830 

000 

PKMTHS  C INDEX  )»PlO(  el  I * S I NT  rt 

i 3 1 

000 

7 

IN  DC  x» 1NDE  X* jThPTS 

832 

oco 

IE  (M.EQ.Ol  36  TO  702 

833 

000 

IE IM»M»jTHPTS 

83  * 

000 

DO  701  W/ICJM 

835 

000 

701 

PKMTHS l I ) »0 • 0 

836 

000 

702 

IE  LLDTALI  nR I T£ i 6.  905  I M 

837 

000 

905 

EOR-i’  ' ('pkmtms  etecK  calculated  for  m -'/I2/ 

' IlLtO'l 

838 

000 

call  R * i li  IF  JLEO/PKMTnS.  JT  HP  AN . . TRUE  . j LL9UE  1 

839 

000 

8 

CONT  imue 

840 

000 

RE  a I HD  IEILEO 

84J 

000 

c 

CALCULATE  FOLLOWING  constants  IE  A OR  RONE  MESH 

MA«  CMAMqeu 

842 

000 

c 

RRiR/TH£TA| 

( E J j,  1 1 1 

84  3 

000 

c 

COSICAP.TMETAIRjTHETAII 

IF  UE2I 

844 

000 

9 

LL R 1 *-  -FALSE  i 

845 

000 

IF  , LL  TH. OR. A,  NE. ATE  mp. 0R.IPTS1.NE.IPTS1T.OR. 

846 

000 

1 RONE  | 1 1 . NE  «R  1L0H  .OR.  RSNE  1 IPTS1  ) . NE  .R  1H|  J 00  TO 

84  7 

000 

GO  TO  13 

84  8 

000 

10 

llria-.true. 

849 

000 

atemp«» 

850 

000 

IPTS1T*IPTS1 

851 

oco 

R1 LOR*  RONE  1 1 ) 

852 

000 

R1HI -RONEl IPTS1 1 

853 

000 

AS3»A»A 

85» 

000 

NBK*0 

555 

000 

INXRW*0 

856 

000 

00  12  J-IaIPTSI 

857 

000 

R- RONE  I I I 

858 

000 

RSO»P*P. 

859 

000 

AR  * A*R 

860 

000 

00  11  J-l.JTrtPTS 

861 

000 

COST*»CTM| J) 

862 

000 

RR-SORTi RSQAAS0-2.0*AR»C0STMI 

863 

000 

RRSTRl INXR *♦ J 1 *R» 

86  * 

000 

IF  AfiSi  RR  ) .(jT.l  .OE*«l  GO  TO  1008 

865 

000 

COSC  Th- ( »1 .0 1 

866 

000 

GO  TO  11 

86  7 

000 

1005 

cost  tm*i  r»costh-a  i /hr 

868 

000 

TE  ( COSC  Tm  . G T , 1 . 0 1 COSCTh.1.0 

869 

000 

COS1  TH.LT.  (-1 .01  1 COSCTH.i -1  .Oi 

870 

ooo 

1 1 

CCTM  1 I NXRw.J  LCf  sc  Tm 

871 

000 

HBW«NRR* 1 

872 

000 

I^xRk«InxRh»jTmPTS 

8 7 J 

000 

E nR«  . lT  .nr«  . . AND.  1 , lT  . I PTS1  1 91  10  12 

874 

000 

A i P»  2,  IE  JUE  1 . RRSTR  . I NX  RW,  . TRUE  . ALL8UE  1 

8 75 

000 

A L - 1,  If  iJ  2.CCTH,  INXRh,  .TRUI.aLLBUE  1 

8*6 

ooo 

NBA»0 

87  7 

INxRr»0 

8 1 8 

12 

CONT  JNuE 

8 7 9 

000 

IF  1 LL  ">T  *L  ««  I T E 1 6.  906  1 

880 

ooo 

90e> 

i.OT  ' i.'RP  .R  BLOCK  CAlCUL*tEO  FILE!'/ 

956 

88  1 . 

000 

1 

1 'J'CCTM  BLOCK  CALCULATED  F IL  E2  1 ) 

957 

882. 

000 

REWIND  IFILEl 

958 

883. 

000 

REWIND  IFJLE2 

_S53 

88*  > 

QOQ 

c 

CALCULATE  LARGEST  INDEX  II  SUCH  THAT  R Tw 0 1 11  1 , LT »R R IF  RTWH 

MESH 

960 

885. 

000 

c 

HAS  CHANGED  IFUE3I 

961 

886. 

000 

13 

IF  l LLR1  A.  OR  ,IPTS2  .NE.  IPTS2T -OR. 

968 

887. 

000 

1 

fi  TW8l  1 1 >N£.  R2L0w.  OR  .RI»0(  IPTS2I  .NE.R2Ri  1 GO  TO 

1* 

963 

888. 

000 

00  TO  23 

96* 

889. 

000 

1 * 

IPTS2T-IPTS2 

_ 965 

890* 

000 

R2L0W.RT  WB 11 1 

966 

89  1 . 

000 

R2  H I -RTwOI  IPTS2) 

967 

892. 

000 

INXLI0*5»JTHPTS 

968 

893. 

000 

NPW-NRWT 

969 

89*  . 

000 

INXRw-NRw*  jthpts 

970 

895. 

000 

NRW5-0 

971 

896  • 

OQQ 

IKXRR5»0 

978 

897. 

000 

DO  22  I-t, IPTS1 

973 

898. 

000 

IF  ( NRW.LT .NRw T 1 00  TO  1*06 

97* 

899. 

000 

IF  1 IPTS1»I*1*QE.NRWTI  GO  TO  1*02 

975 

900. 

000 

INXRW- I IPT SI -I +1 J* JTHPTS 

976 

901 . 

000 

1 *02 

CALL  RW(  *,  IF  ILE1  jRRSTR,  INXRW,  .FAL8g.,LL6UF  1 

977 

902* 

000 

NRH-Q 

9 78 

903. 

000 

INXRw-0 

979 

90*. 

000 

1*06 

INDEX-INXRW5 

980 

905. 

000 

DO  21  J-l,  JTHPTS 

981 

906. 

000 

RR-RRSTR ( INXRW+J ) 

982 

907. 

000 

IF  ( RR .QT. RTWO I II 1 GO  TO  15 

983 

90S. 

000 

Tt»2 

98* 

909. 

000 

GO  TO  20 

985 

910. 

000 

15 

1 1 -1  *1  FI  X|  1 A LOG!  Z2R*RR  1 -RH02  1 /H2  | 

986 

91  1 . 

000 

I I •*» 1 < I I- 1 ) /* ) *5 

987 

912. 

000 

IF  III  .EE. IPT62I  GO  TO  1505 

988 

913. 

000 

RCOF  F 1 IN0EX*1 | -FLOAT ( IPTS2 ) 

989 

91*. 

000 

RCOEFI INDEX*2| -0.0 

990 

915. 

000 

RCOEF I INDE  x*3 1 -0 . 0 

991 

916. 

000 

RCOEF  INPE  X*«  | -0  • 0 

992 

917. 

000 

RCOF F ( INDE  x«5 1 -0 .0 

993 

918. 

00  0 

GO  TO  21 

99* 

919. 

000 

1505 

DO  16  K — 1 , » 

995 

920. 

000 

KK  -K 

996 

921 . 

000 

IF  i K.EQ.* 1 00  TO  17 

9 97 

922. 

ooo 

16 

IF  (RR  .QT.RTwOI II-K)  | 00  TO  17 

998 

923. 

000 

17 

1 1 *!  I-KK 

999 

92*. 

000 

IF  l 1 1 * QE • 2 ) 00  TO  19 

1000 

925. 

000 

IT -2 

1001 

926. 

000 

QO  tO  20 

1002 

92  7. 

000 

I 9 

IF  1 1 . G T r IP  TS2-2 ) I1-IPTS2-P 

1003 

928. 

000 

L 

-AlCULATE  LA3RAN8IAN  INTERPOLATION  COEFFICIENTS  IF|CE3I 

100* 

929. 

000 

20 

RRJMI-RR-RTWOI  I I — 1 1 

1005 

930. 

000 

RR  IO-PR-RT wo 1 1 I I 

1006 

931 

000 

RR  H-RR-RT  WO  t 11*1  1 

100  7 

932. 

000 

RRI2-RR-RTWC 1 1 1 * 2 ) 

1008 

933. 

000 

RR IHlO-RRI O-RR IH 1 

1009 

93*. 

ooo 

RRIM11-RHI 1-RRIHl 

1010 

935. 

000 

RRIM12-HRI2-HRIM1 

1011 

93*. 

ooo 

RP I0I*OB I 1 -RRIO 

1012 

937. 

ooo 

RP I02-PP I2-R  RI 0 

1013 

938 

ooo 

RRI12-RRI2-RR1I 

101* 

939. 

ooo 

o "|F:  INDE  »♦  1 1 -F  LOAT  ( I I | 

1015 

* 

9*0. 

ooo 

RCOE  iN0EX*2l-RRl0*RRIl*RRI2/(PRI«'»0»RRInll*RRIoili 

M(' 


1 0 1 o 

94  1 • 

000 

RCOEEl  INDE  X*  3 i -0  -0-RRI  Ml  *RRI  1*RR  IZ*'  ( RR  IH10»RRI  01*RHJ02l 

ioi ; 

942. 

000 

RCOEEl INDEX**) -RRIM1.RRI0»RRI2/1 RR1M11»RRI01*RRI 12* 

1018 

94  3. 

000 

PC  Of  El  I NOE  X*5  1 *0  .O-RRJ  Ml  *RRI  o*RR  1 1 i 1 RR  I"  12»RRI  02*RRl  12  1 

1019 

9*4  . 

000 

21 

INOE  X* INDE  x*5 

1020 

9*5. 

000 

NR  „•  NR  H + 1 

1021 

9*6. 

000 

Inxrw»InXR**jthpTS 

1022 

9*7. 

000 

NRW5*NR*5«1 

1023 

948. 

000 

INXR*5-INXRW5*U5TmPT 

1024 

949* 

000 

IF  ( NRW5  .LT.  NR*5T.  AND.  !•  LT.  IPTS1  1 GO  TO  22 

102b 

950* 

000 

CALL  Rwl  5i  IF  1LE3,RC0EE»  INXRW5,  .TRUS«,LLBUE  ) 

102b 

95  1. 

000 

NR«5*0 

1027 

952. 

000 

INXRW5-0 

1028 

953. 

000 

22 

CONTINUE 

1029 

954  . 

000 

IE  1LL0TALI  WRITE16.907) 

1030 

955. 

000 

90  7 

FORMAT!'  '.'RCOEE  BLOCK  CALCULATED  FILE3'I 

1031 

956. 

000 

REWIND  IFJLE1 

10  32 

957. 

000 

REWIND  I E I LE  3 

1033 

958. 

000 

c 

CALCULATE  RNL  1 1 Rx  1META  ) ) (EIUE*I 

1034 

959. 

000 

c 

NOTE  BUEF2-RC0EE  INSTEAD  OF  USUAL  BUFFI  SINCE  RNLRIH-.WFFl 

103b 

96  0 • 

000 

23 

NR  *5 -NRW5T 

1036 

96  1 . 

000 

INXRW5-NR*5*J5THPT 

1037 

962. 

000 

NRW-0 

1038 

963* 

000 

INXR««0 

1039 

964  . 

000 

DO  26  I-lx  IPTS1 

1040 

965. 

000 

IF  | NRW5 *LT. NR*5T ) GO  TO  230* 

1041 

966. 

000 

IF  t IPTS1-I*1.GE.NR*5T ) GO  TO  2302 

1042 

96  /. 

000 

INXRW5-! IPTS1-I*1 1 *U5THPT 

1043 

968  • 

000 

2302 

call  R * l 6 j IFILE3#BUFF2xINXR*5.  .FAlSE./LLBUE) 

1 04* 

96  9 • 

000 

NR  W5  m0 

104b 

970* 

ooo 

INXR*5*0 

1046 

97  1 . 

000 

230* 

INOE  <- INXR  «5 

1047 

972. 

000 

DO  25  J-1/UTmPTS 

10*8 

973. 

000 

I!  - I E I xi  BUEF2I  INDEX*  1 ) 1 

1049 

974  . 

000 

IE  (II  .NE.IPTS21  GO  TO  2* 

lObO 

975. 

000 

RNLRTH  < INXR-.J 1-0.0 

1 Ob  1 

976. 

000 

GO  TO  25 

1 0b2 

97  7. 

000 

c 

INTERPOLATE  USING  calculated  coefficients 

1 Ob  3 

978. 

000 

2* 

I I - I I*INXFN 

1 Ob 

979. 

000 

RnlRThUNXRr»ji-8uEF2(In0EX*2)*RNI,(*I*1| 

lObb 

38  0 * 

000 

1 *8uFE2(  INDEX*3)»RR(,jJI) 

10bb 

98  1 • 

ooo 

2 *BUEE2( INDEX** 1 -RnU 1 i 1*1 1 

10b7 

982. 

000 

3 *BUEF2( INDEX*5i*RNLI*I*2I 

1 0b8 

983. 

ooo 

25 

INDE  <• INDE  x*5 

10b9 

984. 

ooo 

NRR5“NRw5* 1 

1060 

985* 

ooo 

INXRW‘S-INXRw5*J5ThP'' 

1061 

986. 

ooo 

NR  M-NR W* 1 

1062 

98  7 

ooo 

INXRw«INXRW*jTHPTS 

1063 

388. 

ooo 

IF  ( NP w. LT .NR* T . AND. I . LT . I PTS1 1 30  TO  26 

1064 

98  9 

ooo 

'ALL  PWI  7>  IE  ILE»»RNlRTm,  InxRh,  . T Rti l • * L LB  JE  1 

1065 

990 

ooo 

NRW-0 

1 066 

99  1 • 

oo  o 

INXR*-0 

106/ 

992. 

ooo 

26 

COnT  INUE 

1068 

99  3 . 

ooo 

IF  IU.OTAL)  *R  I T E 1 6.  908  1 

1069 

39*  • 

000 

908 

f . ',>rslr*w  puock  calculated  eile»'i 

1070 

395. 

ooo 

»E*IND  I E ILE  3 

1 0 7 1 

396. 

ooo 

RFWIND  IEIlE* 

10  72 

99  7 • 

ooo 

DO  35  **i  •!  . li 

10/3 

998* 

000 

M.M] -1 

107* 

999  • 

ooo 

OMFijTE  P 1 L.  M I K os  <C  AP-TmE  TA  1 R»  T*I  T*  1 ) 1 (FIUE5I 

1 0 /b 

1000* 

ooo 

IF  i LL  R1  » • OR  .L  "NE  . LT  "OR.  m.  nE  .MT  1 10  TO  29 

1076 

1001 

000 

go  t a 320i 

1077 

1002 

000 

29 

lt-l 

10  78 

1003 

000 

HT  -M 

l o 7 y 

100* 

000 

NRjTwNRWT 

1080 

1005 

000 

IN  XR  W.NRw*  JTNPTS 

1081 

1006 

000 

oe  32  I-1.IPTS1 

1082 

1007 

000 

IF  ( NRW.LT  .NRWT)  QB  TB  3006 

1083 

1008 

000 

IF  ( IPTS1-I*1iGE.NRWTI  GO  TO  3002 

108* 

1009 

000 

INXRW* IIPTS1-I+1 >*JTHPTS 

108b 

1 010 

000 

3002 

CALL  _RW(  83  If  IL  £2  / C CT  Hi  INXRW,  .E  AL6E  «»LLBUf  1 

108b 

1011 

000 

NRW-0 

1087 

1012 

000 

IN  XR  W*0 

1088 

101  3 

000 

3006 

08  31  J-l.JTHPTS 

1089 

101* 

000 

CALL  LEGEN (L.M. CCTHI  INXRW+ji  .PLM  1 

1090 

1015 

000 

31 

PLMCTh  l INXRw+J  l-PLM<  L-M+l  1 

1091 

1016 

000 

NR  8-  NR  8*  1 

10  92 

1017 

000 

INXRW*INXRW+JT HP TS 

1093 

1018 

000 

IF  (NRW.LT.NRWT«AND.I.LT.IPTS1 ) GO  10  32 

1094 

1013 

000 

CALL  RWI  9/  IF  ILE5.PLHCTH.  INXRW.  .TRUBn.LLBUF  ) 

1095 

1020 

000 

32 

CONTINUE 

1096 

1021 

000 

IF  ILLDTAL)  8RITEI6.909)  L.M 

1097 

1022 

000 

909 

FORMAT  l'  '.'PLMCTH  BLOCK  CALCULATED  KITH  L lit'  1*0  fl  -'*21/ 

1098 

1023 

000 

1 'FILES'  1 

1039 

102* 

000 

REWIND  IFILE2 

1100 

1025 

000 

REWIND  I F I LE5 

tlol 

1026 

000 

3201 

CALL  RW( 10. IFIlEO. PK MThS . JTHPA n, . f *L SE • . LL SUF ) 

1102 

102  7 

000 

INDEX-M* JTHPTB 

1103 

1028 

000 

_D0  3*05  Kl-nn*XPA* 

110* 

1029 

000 

K.K1-1 

1105 

1030 

000 

XNOPa*FL0AT(2»K*l)*FACTIK-M|7(2.O*FACTlK*MI) 

1106 

1031 

000 

NR  W*  NR  WT 

1107 

1032 

000 

INXRW»NRW»JTHPTS 

1108 

103  3 

000 

DB  3*  1*1. IPTS1 

1109 

103* 

000 

IF  1NPW.1.T.NRWT)  G8  TO  3208 

1 110 

1035 

000 

IF  | IPTS1* 1*1 . GE .NRWT ) G8  T8  3202 

1111 

1036 

000 

INXRW*(IPTSl*l*ll»JTHPTS 

1112 

103  7 

000 

3202 

CALL  RWI 11. IFILE*. RNLRTH, INXRW. . FALSE. .LLBOE ) 

1113 

1038 

000 

Call  RWI 12.IFILE5.PLBCTH.INXRW..FALSE..LLBJF ) 

111* 

1039 

000 

NRW*0 

l lib 

}0*0 

000 

INXRW-0 

1116 

10*  1 

000 

3208 

SUH»pnlRTH 1 I NXRw*l  1 »PKMTHS 1 INDEX  *1 l*PLHCTH 1 I NXPW* 1 l 

1117 

10*2 

000 

1 ♦*.0»RNLRTHIINXRW*JTHPTS-1)»PKHT8S|1NDEX*JThPTS»E) 

1118 

10*3 

000 

2 *PLMCTH(iNXH8*JTNPT*-l I 

1119 

10** 

000 

3 * RNLRTH l INXPW«JTHPTS) »PKMTHSI INDEX*JTHPTS l*PLMCIH( I NXRWf J THPT • | 

1120 

10*5 

OOP 

DB  33  J-2.JTHPT3.2 

1121 

10*6 

000 

33 

SUB-SUM**  <0»RNLRTH ( INXRW*J i.PKHTHS  UNOt**J l*PL*CTH ( |NXR»*ol 

1122 

10*  7 

000 

1 ♦ 2 ,0*RNLPTh  I I NXRW*J*1  1 *PKHTHS  ( INDEX  *J*l  1 »PL*I8TH  | J NXH**J*1  ) 

1123 

10*8 

000 

NPW-NPw*l 

112* 

10*9 

000 

INXRw-INXRw.JTHPTS 

1125 

1050 

000 

3* 

ALPHA! I.K1 )*XN0RH»DTH3»SUH 

1126 

1051 

000 

IN  Of  x*  I NOE  *♦  JTHPTS 

1127 

1062 

ogo 

REWIND  IFJLE* 

1128 

1053 

000 

REWIND  IFILE5 

1129 

106* 

000 

3*05 

CONTINUE 

1 1 30 

1 05b 

ooo 

IE  ( IPTS1 . EO .MXPTSI ) Gfl  TB  3*07 

1 131 

1 05  6 

000 

DB  3*06  Kl-l.MXPAN 

1132 

105  7 

000 

00  3*06  I«l.  IPTSU  .MXPTSI 

1133 

105  8 

ooo 

3*06 

ALPHA!  I / K 1 )-0»0 

113* 

105  9 

000 

3 *0  7 

IE  IM.EQ.O)  GO  TB  3*09 

1135 

1060 

ooo 

DB  3*08  Kl-liM 

1136  - 1061.000  or  3*08  I-1.IPTS1 

1137  - 1062. 000  3408  AL PM 4 ( 1 » K 1 I -0 i 0 

1138  - 1063.000  3409  WRITE(6»910>  4 . I NX FN < L . M . I UNLM . LLflUI 

1139  - 1064.000  910  FORMAT!'  '.'ALPHA  BL  SC  K CALCULATED  FOR  A .',F9.5«'  I NX  F N -'.J4, 

1140  - 1065*000  1 ' L * ' . I 2. ' H IUNLM  *'.I3.'  ULOUT  »'/L27) 

1141  - 1066.000  C IF  LLBUT  IS  TRUE.  ALPHA  FUNCTIONS  ARE  WRITTEN  ON  DI|K.  UPON 

1142  - 1067.000  C RETURN  TO  CALLING  PROGRAM  THE  ARRAY  ALPHA  CONTAINS  LAST  »ET 

1143  - 1068*000  C OF  ALPHA  FUNCTIONS  GENERATED  (M»L>* 

1144  - 1069*000  IF  (.NOT.LLOUTI  GO  TO  35 

1145  - 1070.000  CCCCC 

1146  -1071.000  IUNLM- IALPTSaI IUNLM-1 I *1 

1147  - 1072.000  WRITE  DISK  I F I LE6.  IUNLM.  AL  PH  A 

1148  - 1073.000  TUNLM- ( IUNLM-1 17 IALPTS.l 

1149  - 1074.000  CCCCC  .............A*.*.....**.*.. 

1150  - 1075.000  CCCC  ..................................if ...*..*.*****.*.*..*.»M....#i 

1161  - 1076.000  C WRITE! IF ILE6 ' IUNLM I ALPHA 

1152  • 1077*000  CCCCC  ****...»*.**..*.».*..*»i**.*****..f»»..**.*****.*******.**.*....A# 

1153  - 1078.000  IUNLM-IUNLM.l 

1154  - 1079.000  35  CONTINUE 

1155  - 1080.000  REWIND  IFILEO 

1156  - 1081.000  RETURN 

1157  - 1082*000  END 

1158  - 1083.000  SUBROUTINE  LEGEN I LL. M. X. PLM ) 

1159  - 1084.000  CCCCC  SUBROUTINE  LEGEN  ( L L.  M.  X.  PL  M ) COMPUTES  THE  ASSOCIATED 

1180  - 1085.000  CCCCC  LEGENDRE  POLYNOMINALS  P(M«MI  TO  PILL.M)  OF  ARGUMENT  X AND 

1161  - 1086.000  CCCCC  STORES  THEM  IN  VECTOR  PLMa 

1162  - 1087.000  CCCCC  WRITTEN  BY  0.  J.  MICKISH.  FEBUARY  1972 

1163  - 1088.000  CCCCC  EVALUATION  IS  BASED  ON  THE  RECURSION  RELATION  FOR  AS  SOLE  AT  £0 

1164  - 1089.000  CCCCC  LEGENDRE  POLYNOMINALS  P(L«M/X» 

1165  - 1090*000  CCCCC  P ( L. M. X ( -2 *X *P I L-l . M . X ) -P l L- 2. M. X i 

1166  - 1091*000  CCCCC  +( 2»M- 1 ) • ( X4P( L-l.  M.  X I -P | L”HaP»X ) 17 ( L-«l 

1167  - 1092.000  CCCCC  THIS  IS  THE  FORM  ANALOGOUS  TO  THAT  USED  IN  IBM'S  SSP  SUB- 

1168  - 1093.000  CCCCC  R0UTINE8  FOR  LEGENDRE  POLYNOMINALS.  THE  ADVANTAGES  ARE 

1169  - 1094.000  CCCCC  'ECONOMY  AND  NUMERICAL  8TABIL1TY' 

11  70  - 1095.000  CCCCC  STARTING  VALUES  ARE  P ( M-  1 . M,  x I *0 . 0 

1171  - 1096.000  CCCCC  P I M. M» X I ■ ( 2» M- 1 I I ! » ( 1 . 0- X* f| I • » ( M7 1 1 

1172  - 1097.000  DIMENSION  PLMI1I 

1173  - 1098.000  CCCCC  COMPUTE  P(M,M) 

1174  - 1099.000  L-m 

1175  - 1100. 000  I ' tL.NE.OI  GO  TO  1 

1176  - 1101 .000  Pi  -1  .0 

1177  - 1102.000  Ge  TO  5 

11  78  - 1 103.000  1 XTNT-FLOAT (2»L-1  ) 

1179  - 1104.000  CCCCC  DETERMINE  IF  SQUARE  ROOT  NECESSARY 

1180  - 1105.000  IF  ( L-2* I L72 I »E0 .0  ' GO  TO  2 

1181  - 1106*000  Pl«x INT4SQRT 1 1 .0»X»X |»»l 

1182  - 1107.000  GO  TO  3 

1183  - 1108.000  2 Pl-x INT» I 1 .0-X »X ) » * ( L72) 

1184  - 1109.000  3 IMAX-L-? 

1185  - 1110. 000  IF  tlMAX.LE.OI  GO  TO  5 

1186  - 1111.000  DO  4 I-1.JMAX 

1187  - 1112.000  XINT-x INT-2.0 

1188  - 1113.000  • PL-xtNT.PL 

1189  - 1 114.000  5 PL  M | 1 I -PL 

1190  - 1115.000  CCC'  C RETURN  IF  ONLY  ONE  VALUE  REQUIRED  ILL-M) 

1191  - 1116.000  IF  (LL-EO.LI  return 

1192  - 1117.300  CCCCC  JSE  RECURSION  RELATIONS  TO  COMPUTE  REMAINING  POLtnOMINAlS 

1193  - 1118.000  PL2-0.0 

1194  - 1119.000  PL1-PL 

1195  - 1120.000  LMlN-M.l 


1136 

1121 

000 

*2*1  -FLOAT  (0*0-1  ) 

U3; 

1122 

000 

XL  '*■  F L 0 A r ( l_0  IN-0  ) 

1 136 

1 123 

000 

INDE  X-2 

1 1 33 

112* 

000 

DO  6 L-LOINaLL 

12UU 

112b 

000 

XPlI -X  *P L 1 

i2ui 

1 126 

000 

PL  »X  PL  1-Pt  2*  «P  LI  *X  20  1*  (X  PL  1- PL  2 1 

1202 

H2; 

000 

PL  O ( INDEX  1 »PL 

1203 

1128 

ooo 

PL2-PL1 

120* 

1 129 

000 

PL 1-PL 

120b 

1 130 

ooo 

XL  0* XLO+  1 • 0 

1206 

1131 

000 

6 

INDE  X a INDE  X*  1 

120/ 

1 132 

ooo 

RETURN 

1208 

1133 

ooo 

end 

12  09 

113* 

ooo 

C ! AS  S I ON  0 1 B 0/  IF  ILEa  O" XEPOTD ) / (SAVE) 

1210 

113b 

ooo 

C.'FORT RAN  LS/PO/ADP 

1211 

1136 

ooo 

SUBROUTINE  8 AVEPN( Za ZION/ZR, RHO, Ha 1PTS»R0ESH,RNL jDHNL/ 

1212 

113/ 

ooo 

1 M XFN/ mxPTSa  LMAX 1/ LOCCFNaL  TO  TF  Na  LH 11 aNEL aF  Ra  FNSP I 

12U 

1138 

ooo 

DI  OENSION  ROESH(  1 ) ,RNL  1 1 )a  DRNL  (DiLOCCFN  f 1 ),  LTOTFN  1 1 ) 

121* 

1139 

ooo 

01  OEMS  ION  NPRINCI15)aZETA(15)aXN0RM(15)aC(15>aFR(3a15> 

1 2 l b 

1139 

boo 

DIMENSION  FR  SP (3a 15) 

121b 

1 1*0 

ooo 

RE  AL  *8  ZZE  TA /ZNPRI N, ZC /Z NO RMCa ZLOCCaZL  TOT 

121  ; 

1 1*1 

ooo 

DATA  ZZETA/'  ZETA '//ZNPRIN/ 'NPRINC /iZC/'  C3'/a 

12  18 

11*2 

00(1 

1 ZNOROC/'  N0RMC '/ aZLOCC/' LOCCFn )/ aZLTOT/' LTOTFN ' / 

12  19 

11*3 

JOO 

FN9R0(ZZ*NN)«SQRT((2.O*ZZI**(2*NN*ll/FACT(2*NN)) 

1220 

1 1** 

ooo 

OAXB.AS*l5 

1221 

1 l*b 

OOO 

DO  1 I-l/LOAXl 

1222 

11*6 

OOO 

LOCCFN ( I 1 «0 

1223 

1 1* ; 

ooo 

1 

LTeTFN ( I ) »0 

122* 

11*8 

ooo 

RE  AO ( 5 z 900 ) Z/ZION/ZR/RHO/H/IPTSaNOCC/NTOT 

122b 

11*9 

ooo 

900 

F0RO AT  1 5F 1 0 • Oa  31 5 ) 

122b 

1 lbo 

000 

c 

NOCC  AND  N TO  T REFER  TO  CLOSED  SUBSHELLS 

1227 

1 lb  1 

ooo 

*R 1TE ( 6/ 901  ) Z/ZIONaZR/RhO/H/IPTSaNOCCaNTOT 

1228 

1 lb2 

ooo 

901 

FOPMATM  «/'Z  • ' a F 5 • 1 a 1 ZION  - ' a F 5 • 1 a ' ZR  -'aF5*1a 

1229 

1 153 

ooo 

1 • RHO  • ' a F 7 • 3a  ' H « ' a F7  • * a ' IP  TS  -'/I*/ 

1230 

1 15  * 

ooo 

2 1 NOCC  - 'a  13/  ' NT  OT  • )«  13  ) 

1231 

1 lbb 

ooo 

IF  ( IPTS.LE'OXPTS)  GO  TO  2 

1232 

1 15b 

ooo 

RR I TE ( 6 a 902 ) IPTS/MXPTS 

1233 

1 lb/ 

ooo 

902 

F“ROAT('  'a'NUOBER  OF  POINTS  USED  TO  REPRESENT  AO  •*/!** 

123* 

1 158 

ooo 

1 ' EXCEEDS  OIOENSION  -',1*1 

123b 

1159 

oyo 

CALL  EXIT 

123b 

1 160 

ooo 

2 

IF  | NTOT .GE«NOCC ) GO  TO  3 

123; 

116  1 

ooo 

w®  I T E ( 6/  90 3 ) NTOT/NOCC 

1238 

1 162 

ooo 

903 

f»R0AT('  '/’TOTAL  NUMBER  OF  AO ' ' S * ' / I 3/ 

1233 

1163 

ooo 

1 ' BUT  NUOBER  OF  OCCUPIED  AO ' ' S - • / I J ) 

12*0 

life* 

0011 

CALL  EXIT 

12*1 

1163 

ooo 

3 

IF  ( NTOT «LEaMXFN ) GO  TO  * 

12*2 

1 166 

ooo 

RRITE(6a90*I  NT0T/OXFN 

12*3 

116/ 

ooo 

90* 

FOROATI'  '/'TOTAL  NUMBER  OF  AO ' ' S *'/IJz 

12** 

1 168 

ooo 

1 ' EXCEEDS  DIMENSION  -'aU) 

1 2 *b 

1169 

ooo 

CALL  exit 

12*6 

1 170 

ooo 

4 

PHOT  «RHO 

12*; 

1171 

Ooo 

00  5 I -1  A I PT  Sa  * 

12*8 

1 1 72 

ooo 

p — e x p i root i/zr 

12*9 

1 173 

oco 

RoeSH( I ) «R 

1 2bo 

117* 

OOO 

PM«T-RH0T**«O*H 

1 2b  1 

1 1 7b 

ooo 

IF  ( I.EO.l ) GO  TO  5 

12b2 

1176 

ooo 

OFL* ( R -R  * 1 /* .0 

1 2b3 

1177 

ooo 

ROEShi  1-3) *H*»DEL 

12b* 

1178 

OOu 

R“ESH( 1-2) •R**OEL*DEL 

1 2bb 

1179 

ooo 

ROESMI  I-i ) *R -U  EL 

256  - H80»000  5 R*.R 

257  - 1182*000  LSAVE-l-1) 

1258  * 1 183*000  Nt.SUM-0 

1259  - 118**000  NlPTS»0 

1280  - 1185*000  6 REA0I5/S05I  Li NB ASES / L 0C FN * L TO FN 

1261  * 1186.000  905  FPRMATI*I5) 

1262  - 1 18  7. 000  wPITE(6i  906>  L » 6 BA  SE  Si  L0  CF  Nz  LT  8F  N 

1263  - 1188.000  906  FORM AT  I / ' 0 ' / ' L »'/I2/'  N BA  SE  S • 'aIS/'  LO  CF  N ■ ' / 1 3/ 

12  6*  - 1189*000  1 ' LT0FN  - • , 13) 

1265  - 1190*000  L1*L*1 

1266  - 1191*000  IF  ( LI *LE* LMAX 1 ) 00  TO  7 

1267  - 1192.000  hr ITE( 6/ 9071  L1/LMAX1 

1268  - 1193.000  907  FORMAT!'  '/'L*l  - • a X Z a • EXCEEDS  DIMENSION  •',12) 

1269  - 1 1 9 A . 000  CALL  EXIT 

1270  - 1195.000  7 IF  < NB AS ES • L E . MA XB AS  I GO  TO  8 

1271  - H9b. 000  «R!TE(6/90S)  NBA SE S/ MA XB AS 

1272  - 1 197.000  908  fmrmaTI'  '.'NUMBER  OF  BASIS  FUNCTIONS  •',13,'  EXCESS' 

1273  - 1198.000  1 ' DIMENSION  **/I3) 

127A  - 1199*000  CALL  EXIT 

1275  - 1200*000  8 IF  ( LO CF N . LE • L TOFN . A ND * L TOFN . G T . O I GO  TO  9 

127b  - 1201*000  WRITEI6/909)  L OC FNz L TO Fn / L 

1277  - 1202*000  909  FORMAT!'  '/'NUMBER  OF  OCCUPIED  FUNCTIONS  » ' z 12/ 

1278  * 1203*000  1 ' BUT  TOTAL  NUMBER  OF  FUNCTIONS  *'/I2/'  ►>  IT  H L *'/I*l 

12/9  - 120**000  CALL  EXIT 

1260  - 1205.000  9 IF  ( L*  GT  *LSA VE ) GO  TO  10 

1281  - 1206*000  WOITEI6/910)  L/LSATE 

1282  - 1207, .000  91 0 FORMAT!'  '/'L  » ' a 1 2/'  IS  OUT  OF  SEUUENCE  WITH  PREV1BUS  ', 

1283  - 1208*000  1 ' L * ' a I 2 ) 

128*  - 1209*000  CALL  EXIT 

1285  - 1210*000  10  LSAVE-L 

128o  - 1212.000  LOCCFN (Ll I -LOCFN 

1287  - 1213*000  LTOTFN ( L 1 I -LTOFN 

1288  - 121**000  RE  AD ! 5 / 9 1 1 ) I ZET A ( I ) ,NPR INC ( I ) / I »1 aNBASES I 

1289  - 1215.000  91  1 f«rm A’ i F 8.0/  I2/F 8. 0/  12 /F 8. 0/  12 »f  8. 0<  12/F 8. 0/  12 /F 8 . 0»  I2/F 8. 0/  12/ 

1290  - 1216.000  1 F8.0/I2I 

1291  - 1217.000  CALL  0 UT 1 ( 2E T A / NBA SE S, ll E T A ) 

1292  - 1218.000  Call  I OU T 1 ( NPH IN C, NB ASES / 2 NPR I N I 

1293  - 1219.000  DO  11  I*1/NBASES 

129*  - 1220.000  1 1 XNORMI  I I *FNe«M I ZET A ( I | ,NPR INC!  I I I 

1295  - 1221*000  DO  19  J*1/LT0FN 

1296  - 1222.000  NLSUM-NLSUM* 1 

1297  - 1223.000  READI5.912I  I C I I I / I • 1 / NB  ASES  ) / FR  | l 1/ J I / F RSP  I L 1 / U I / NCUT 

1298  - 1223. 100  IF|FR!L1*JI*LT*. 000011  FR(L1/JI*1* 

1299  - 122*. 000  9]2  farm AT ! 8 F 1 0 • 0 ! 

1300  - 1225.000  .RITE! 6/913)  NLSUM 

1301  - 1 226.30  9l  3 FORM  AT  ( / 1 0 ' / 12  / < 0«BITAl’I 

1302  - 1227.000  CALL  OUT  1 ( C . NB ASES / Z C I 

1 Jo3  - 122  7. ICO  WRITEIt/  9201  F R ! L 1 * J I • FR SP ( Ll / J ' j RCU T 

1 30*  * 1227.20'  9?r‘  farm  at  ( ' O' / 1 FR  AC  TI  On  OF  .HOLE  ShElL  FILLED  * '/El»*»7 

1305  - 122  '. 3 0 11X/ 'FRACTION  OF  CURRENT  SPIN  IN  SmEL  L FILLED  • '»Ei**8/ 

1306  - 1227. *00  21X/'0RBITAL  SET  EQUAL  ZERO  AFTER  R » '/El*. 8/ 

1307  - 123'. 500  3 IX / 'NOTE  IF  R ABOVE  EQUAL  ZERP**Nfl  CUTOFF') 

1308  - 1228-000  Dr  13  .-1/IPTS 

1309  - 1229.000  Sl'M.0.0 

1310  * 1230*000  OF  m.o.O 

1311  - 12)1*000  R.RMESHIM 

1312  * I23t*lu0  IF  ,'RCLT.lT. *00001)  GO  TO  25 

1313  * 12)1.20  I'  R.Gf.HCuTl  GO  TO  2* 

131*  * 1232.  jO  25  no  12  I*;.NHA6ES 

1315  “ 1213*900  »(PR1  NT -NPN  INC!  I * 


J 


l 316 
1317 
1313 
1313 

123* 

1235 

1236 

1237 

000 

000 

000 

QQQ 

TNPR IN-FLOAT ( NPR  INT  1 
ZETAWETAll  ) 

TE  MP  -C  ( I )»  XNORMI  I | *R  *»  (NPR  INT-  1 1 *EXP  ( 0-0-Z  ET  AT  *R  ) 
SUM.  SUM*  TEMP 

1320 

1238 

000 

12 

OSUM-DSUM-  1 ZET  AT  »♦  2*  ( TNPRI  N»  ( TNPPI  N-  1. 0 I /R-2 .0*ZET  AT  *1  NRRI  NI  /P»  1 

1321 

1239 

000 

1 

• TEMP 

1322 

1 2*0 

000 

2* 

nlpts-nlpts+1 

1323 

12*1 

000 

RNLI  NtPTSI  -SUM 

132* 

12*2 

000 

13 

DRNL  (NLPTS  )-DSUM*(  FLOAT!  L*L1  )/R-2.0*ZI  /R»SUM 

1323 

1 2*3 

OOP 

<•1 

132b 

1 2** 

000 

o 

' o 

■ 

1327 

12*5 

000 

khin-nlpTS-IPTS*3 

1328 

1 2*6 

000 

00  16  KK-KMIN/NLPTS*2 

1329 

12*  7 

000 

K-K+2 

1330 

12*8 

000 

IP  IK.NE.3I  00  TO  1* 

1331 

.12*9 

2QQ 

JRL-RMESM-HL 

1332 

125  0 

000 

PI • ( RNL ( KK-2 )»R1 )*»2 

1333 

1251 

000 

GO  TO  15 

133* 

125  2 

000 

1* 

R 1 -R  3 

1335 

1253 

000 

P1-F3 

1336 

125* 

000 

15 

R3-RMESHIK ) 

1337 

1255 

OQO 

F3-1 RNLIXK )*R3 1**2 

1338 

1256 

000 

1 6 

S - S* (R3-R1 ) / 6 . 0* IP 1 + * • 0* (RNL (KK-1 | *fi  ME  SH (K-l ( ) **2*F3 ) 

1339 

1257 

000 

SNORM-l.O/SQRT (S ) 

13*0 

1258 

000 

00  17  I-1jNBASES 

13*1 

1259 

000 

17 

Cl  1 1 -SNO  RM  *C  1 1 ) 

13*2 

1260 

000 

KM  IN-NLP  TS- 1 PTS*  1 

13*3 

126  L 

MS_ 

DO  18  KK»KM1N*NL?TS 

13** 

1262 

000 

DRNL (KK 1 -S NORM *0 RNLI KK ) 

13*5 

126  3 

000 

18 

RNL( KK  /*SN0RM«RNL( KK ) 

13*6 

1 26* 

000 

wRITE(6.91*>  SNORM 

13*7 

1265 

000 

91* 

PflRM AT ( ' 0 ' * ' SN3RM  -'»1PE12.5I 

13*8 

1266 

000 

Call  OUUIC.NBASES.ZNORMCI 

13*9 

1267 

000 

19 

continue 

1360 

1268 

000 

IF  (NTOT-NLSUM)  20*21*6 

1351 

1269 

000 

20 

WPITE(6»9l5l  NTOT*NLSUM,L 

1352 

1270 

000 

91  5 

FORMAT!'  '.'NUMBER  0 1 AO  ' ' S ANTICIPATEO  -'*12* 

1353 

1271 

000 

1 ' NUMBER  OF  AO"S  ENTERED  -’*12* 

135* 

1272 

000 

2 ' L • ' * I 2 1 

1355 

1273 

000 

CALL  EXIT 

1356 

127* 

000 

21 

CALL  I0UT1 (LOCCFN.LMAXl.ZLOCC) 

1357 

1275 

000 

Call  I 0UT1  (L  TOTFn*  lmaxi*  ZLTOT  1 

1358 

1276 

000 

LH  n -LSA  VE  *1 

1369 

1276 

00* 

anElSP -0*0 

1360 

1276 

005 

ANEL-O.O 

1 3 b 1 

1276 

010 

00  810  Ll-1*LHI1 

1362 
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000  l 1 IN  SUBPROGRAM  MTRX'I 

000  CALL  EXIT 

000  51  IF  ( NBLC HA  +NBL CH X • LE  <M BLHA  X ) GO  TO  52 

000  WRITE! 6<  900  I NBL CH A< NBLC HX < MBL HA  X 

000  900  FORMAT!'  1 < ' SUM  OF  NBLCHA  •'<I3<'  AGO  NBLCHX  »'<13a 

000  1 • EXCEEOS  DIMENSION  MBLHAX  •*<I3) 

000  CALL  EXIT 

000  52  CONTINUE 

000  IF  (LLNAOAI  GO  TO  57 


I 

!l6l6  - 1508.000  1NXHS-0 

1617  - 1509.000  Dfl  5*  J-l/NBLCHA 

1618  - 1510.000  IF  (LLGENJi  HRITE(6,910)  J 

1619  - 1511«000  910  FORMAT!'  ', 'BEGIN  COLUMN', 13) 

1620  - 1512 .000  00  5*  I»l»J 

1621  - 1513.000  CALL  AXELEM( .TRUE.,I,J,NA,NA,LA»LA*FRA,FRA,LOCaFN,IJCAFN, 

1622  - 151*. 000  1 laRINX,LARINX,LADINX,LADINX,LAM»X1,LAMAX1,CA,CA,P#LCHA»H*LCHA, 

1623  - 1515.000  2 Ra  NL  , R ANL,  DR  ANL,  DR  ANL,  AL  PH  A,  ALPM  62 , MXP  TS,  MXP  AN,N*g  AN  a 

162*  - 1516.000  3 RAMESH,RAM£SH,  lAPTS,  I A PT  S,  RU  , UNI  T*  NA  ASET  , NEI  GH  A,  N|IG  AC, 

__  1625 • 1516.500  * NAG,  XAF,  GA,  X AG » F RASP , F RA SP » 

1626  - 1517.000  5 XKX,  XKY,  XKZ,  LLGENI  » I IF  ILE,  IAAFLE*!  AAFLE,  H,  S, 

1627  - 1518.000  6 LL0TAL/LL6UF I 

1628  - 1522.000  925  FO  RM  AT  ( ' 0 ' , ' FO  R AA  MATRIX  ELEMENT  I»'*I3,'  J «'#I3» 

1629  - 1523.000  1 ' M ■ ' , 1 P2E 1 * . 6, ' 8 * ' , 2E 1* • 6// / I 

1630  - 1525*000  INXHS- INXHS* 1 

1631  • 1526*  000  |P__j_ytOT*LI_  mRIT£(6,  925)  I»J,H,S 

1632  - 1527.000  SS(INXHS)»S 

1633  - 1528-000  5*  HH(INXHSI*H 

163*  - 1529.000  IF  (LLNA8XI  G8  T8  60 

1635  - 1530*000  08  56  J»l,NBLCHX 

1636  - 1531.000  JAX»J*NBLCMA 

1637  - 1532.000  IF  ILLGENJ)  HR  I T E I 6,  9255  I JAX,NB|,CHA 

1638  - 1533.000  9255  FORMAT)'  'BEGIN  C8LUMN',I3,t  (FIRST', 13,'  ROMS)'* 

1639  - 1534.000  INXHSJ«J AX» ( JAX- 1 ) /2 

16*0  - 1535*000  08  56  I«1,NBLCHA 

16*1  - 1536.000  CALL  AXELEM) .FALSE*, I, J,NA,NX,LA,LXaFRA,FRX,L8CAFN#C0CXFN, 

16*2  - 1537.000  1 LARINX,LXRINX,LADINX,LXDINX,LAMAXl,L*MAXl,CA,CX,KiLCB*,HLCHX, 

16*3  - 1538.000  2 RA  NL  , R XN  L,  DR  ANL,  DR  XNL,  AL  PH  A,  AL  PMA2,  MXP  TS»MXP  AN,N  *0  AN# 

16V*  - 1539.000  3 RAMESH,RXMESH,  IAPT8,  IXPT S, RUB, UN  IT ,N AXSE T, NE IGHX#NE l 8»C, 

16*5  - 1539.500  * NA G, XA F, GA , X AG , F RA SP , F Rx SP, 

16*6  - 15*0.000  5 XKX,  XKT,  XK*,LLGENI,I  IFIlE,  I A XF  LE  *1  XAFLE,  M,  S, 

16*7  - 15*1-000  6 llOTAL,LLBUF ) 

16*8  - 15*5.000  926  F8RMAT ( ' 0 ' , ’ F8R  AX  MATRIX  ELEMENT  1 ■',13,'  J • > , 1 3# 

16*9  - 15*6.000  1 ',  H •' , 1P2E1*. 6, ' • • ' , 2E1* .6/// I 

1650  - 15*8.000  IF  (LLDTALl  MRITEl6,926l  I,J,H,S 

1651  - 15*9.000  SS ( I NXHS J* I ) *6 

1652  * 1550.000  56  HH I I NXHS J* I ) »H 

1653  - 1551-000  57  IF  (LLNA8X)  GB  T6  60 

165*  - 1552.000  08  59  J-1,NBLCHX 

1655  - 1553.000  JAX«J*N8LCHA 

1656  - 1 55*  • 000  IF  (LLGENII  HR  ITE  ( 6,  9265  I JAX,J 

1657  - 1555.000  9265  FORMAT  ( ' ', 'FINISH  COLUMN  ',13,'  (L*STI,I3,'  ROHSMi 

1658  - 1556.000  INXHSJ«JAX*I JAX-1 | /2*N8LCHA 

1659  “ 1557.000  08  59  I-I,J 

1660  - 1558.000  CALL  A XE LE M ( . T RUE . » I , J , N X, NX , L X, LX »FRX, F RX , LOC XFN, LtCXfN, 

1661  - 1559.000  l lxrinx,lxrinx,lxdinx,lxdinx,lxmaxi,lxmaxi,cx,cx,rilch*»m||LChx, 

1662  - 1560.000  2 RXNL,RXNL,DRxnl,DRXNL,  ALPHA,  AL  PM62  , M XP  TS  , M XP  AN  , N Ed  AN  # 

1663  - 1561.000  3 RXMESH,RXMESH,  IXPT8,  I XPT S,  RU > UNI T« NA ASET , NEI GH A, Nl IG4C, 

166*  - 1561.500  * NXG, XXF, GX,XXG,F RX$P,FRXSP, 

1665  - 1562.000  5 XKX,  XK.Y,  XKZ,LLQENI  , I IF  ILE,  IXXFLE*iXXFLE,  H,S, 

1666  - 1563.000  6 LLDTAL/LLBUF ) 

1667  - 1567*000  927  FORM  AT ( ' 0 ' , ' F8R  XX  MATRIX  ELEMENT  l • ' , I 3,  ' J •',13# 

1668  - 1568.000  1 ',  H • ' , 1 P2E 1 * * 6,  ' 8 » ' , 2E 1* .6 // / I 

1669  - 1570.000  IF  (LLOTAL)  HRJTE|6,927)  I,J,H,S 

1670  - 1571.000  SS  I I NXHS  J*  I I *S 

1671  - 1572.000  59  HH  ( I NXHS  J*  I I »H 

1672  - 1573.000  60  CALL  I 8 ( LL  GE  Nl  , I IF  IL  E,  OUMM  Y,  . T RUE  . *LLBUF  I 

1673  • 1574.000  N«NBLCHA*NBLCHX 

167*  - 1575.000  IF  (NLETE.EQ.OI  G8  T8  63 

1675  * 1576.000  08  62  IL ET E- 1 , NLET E 

91 


16/6 

m 

1 b7  / 

000 

K»KLETE< ILETE 1 

16/7 

m 

1 b7  8 

000 

IE  ( K • EQ  • N ) GO  TO  62 

16/6 

m 

1579 

000 

KT0»K* ( K-l )/2 

16/9 

m 

1580 

000 

KFRPP-K* (K+l  )/2 

16  8 0 

m 

1581 

000 

K 1 *K  + 1 

1681 

m 

1582 

000 

DP  61  J*K1#N 

1662 

m 

1583 

000 

DP  6 1 I»l>J 

168  3 

1584 

oou 

KF  «pP»KFR0M+ 1 

1684 

m 

1885 

000 

IF  ( I.EQ«K ) GO  TO  61 

168b 

m 

1586 

000 

KT0-KT0+  1 

1686 

m 

158  7 

000 

SSIKTP  l-SSIKFROP ) 

168/ 

m 

1588 

000 

MH ( K TP )»HH ( KFROP ) 

1668 

m 

1589 

000 

61 

CPNT INUE 

1689 

m 

1590 

000 

62 

N«  N“  1 

1690 

m 

1590 

010 

63 

K1  -N*< N+ 1 1 /2 

1691 

m 

1590 

020 

DO  10  JP«1/N 

1692 

m 

1590 

030 

J»N- JP+1 

16  93 

m 

1590 

040 

DO  10  I P — 1 / N 

1694 

m 

1590 

050 

I*N-IP+1 

169b 

m 

1590 

060 

K-N» 1 J-l )♦ I 

1696 

m 

159  0 

070 

IF  < I .GT. J>  GO  TO  9 

169/ 

m 

1590 

080 

OUPHIK  I-HHIK1 ) 

1698 

m 

1590 

090 

OUPS  <K  )«SS  (K  1 | 

1699 

1590 

100 

K1  -K 1-1 

1700 

1590 

110 

GP  TO  10 

1701 

1590 

120 

9 

8 2 "N  * ( 1-1 ) +J 

1/02 

1590 

130 

DUPHIK )-CPNJG( DUMHIK2I ) 

1703 

1590 

140 

DUPSIK  )«CtJNJGtDU*SlK2)  ) 

1704 

m 

1590 

150 

10 

C"MT INUE 

1 70b 

m 

1590 

160 

LI  NO IM-N4N 

1/06 

m 

1590 

170 

ISTAPT-LINDIPyI 

1707 

m 

1590 

180 

PA  TP  AX ■M6LPAX4MBLNAX 

1 708 

1590 

190 

DP  11  I-ISTARTiPATPAX 

1 709 

1590 

200 

DUPHII  ) »CPpL  X | 0 • 0/ 0 • 0 ) 

1710 

1590 

210 

OU*S  < I >«CPPLX1 O.Oj  0«0I 

1711 

1590 

220 

1 1 

DU PS 2'  I 1 •CMPLX ( 0«0»0»0 1 

1712 

1590 

230 

DP  12  I - 

1713 

m 

1590 

240 

DP  12  J-l/N 

1714 

m 

1590 

250 

X»N* 1 J»1 ) ♦ I 

1 7 1b 

m 

1590 

260 

°E  L-0 • 0 

17  1b 

mm 

1590 

270 

IFiI.EQ.J)  PEL-1.0 

1717 

1590 

280 

1 2 

DU  PS  2 t K 1 -C  HP  LX  1 PEL  » 0 • 0 • 

1/18 

m 

1590 

290 

WP  I TE ( 23 1 DUPM.OUPS 

1713 

m 

1590 

300 

PE  4 1 NO  23 

1/20 

m 

1591 

000 

CALL  E VDHVE ( N/ XKX<  XK Y, XKZ/  IwT, NVECaIEVFLE/ LLDT AL<NNBUT, 

1721 

m 

1591 

500 

1LLPTPX ) 

1722 

m 

1592 

000 

PF  TURN 

1723 

m 

1593 

000 

END 

COPY  MCMPLX2  TO  LP(K ) 
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19  - 

16 
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17 
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18 
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22  - 

18 

500 

23  • 

19 
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2A  a 

20 

000 
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21 
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26  • 

21 

500  C 

27  - 

22 
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22 
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29  • 

23 
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30  - 
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♦ 3 

000 
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A* 
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3 A a 

*6 

GOO 

30  - 
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000 

39  - 
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52 

000 

A 1 - 

53 

000 

A2  - 

5* 
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A3  - 

55 

000 

44  - 

56 

000 

45  • 

57 

OoO 

46  - 

SB 

oco 

A 7 - 

59 

000 

A8  - 

60 

000 

*9  ” 

61 

000 

50  - 

62 

000 

51  - 

63 

000 

52  - 

6A 

000 

53  - 

65 

000 

54  - 

66 

000 

55  - 

67 

000 

56  - 

68 

000 

57  - 

69 

000 

58  » 

70 

000 

000  C ! AS  SI  ON  M : B 0#  IF  ILE#MAX£LEMD  I # (SAVE) 

oe  o _£  i r a R T pan  ls.bo#  a dp 

SUBROUTINE  A XE  LE  Ml  LL  8*  HE  # I A#  JX  #N  A*  NX/  L*»  LX  #F  RA  #F  RX  < 

1 LO  CA  FN  # L OC  XF  N#  L*RI  NX#L  XR  INX,  LAQJ  Nx/L  XD  INX#  LAMAXl^XMAX  1# 

2 CA#Cx#  M8LChA#mbLCHx#  RAnL#RXNL#DRANl#  DRXNL# 

3 ALPHA# ALPHA2#MXPTS#MXPAN#NXPAN# 

A RAMESH,RXMESH#  JAPTB#  IX  PT  S#  RUB#  UN  IT  #N  AX  SE  T»  NSET  S# 

5 NSET  SC  # N AG#  X AF  # Q A#  XA  0#  FR  ASP#  FRKIPa  

fa  XX  X,  XK  Y#  XKZ#  LLQENI  # I IF  ILE#  I a XFLt»I  XAFLE# 

7 H#S#LLDTAL#L  LB  UF  ) 

DIME  NS  ION  NA  ( 1 I#  NX  ( 1 I#  la  I 1 I#  LX  I 1 |#fRA(  3#  15  )#  FRXI  3#  J»  »# 

1 LOCAFN  ( 1 )#  LOCXFN  ( 1 )#  LARINX  ( 1 )#  LXRINX  I 1 )<  LADlNX  ( 1 i# 

2 LXDINX  ( 1 >,  CA  (MBLCHA#  1 I #tx(  MBLCHX#  1 I#  RANL  l»  I#  KXNL  l»  I# 

3 DRANLI  1 I zDRXNL  1 1 )#  ALPHAI  HXPTS#  MXPANI  # 

♦ ALPHA 2 (MXPTS#MXPAN  I # 

5 RAMESH  ( 1 )#RXMESH  ( 1 I#  RUB  I UiNAXSET!  1 ) # 

6 NAG | 3) #XAF I 3»25) »XAG (3#*5*#FRASP (3# 15)#FR*BP (3# 111 
INTEGER  QA|3#25#2I#GATEM1,GATEM2 
COMPLEX  CA,CX«H»  S#  ZSUM#Z#ZCROTM,  zcpm#zkcrm 

REAL**  IMZCRM 

LOGICAL  LLSAME  # LLGEN I # LL  AOC#  LL  XOC#  LL  ANOC#  L LX  NOC#  LL  DT  AL  (CUB  PF 
LOGICAL  LLCNFG 
DIMENSION  0UMMYI2I 

EQUIVALENCE  |ZCRM#DUMMY( 1 | ,REZCRM) «| DUMMY! 21 # IMZCRPI 
DATA  TWOPJ/6. 283 185307 17 9586/#  EPBLON/1 .0E-05/ 

CHANGE  HERE  FOR  RE*L»8  ALPHAS  

IALPT8*MXPTS#MXP AN 
LLCNFG-. FALSE. 

Ha  ( 0 .0#  0 .0  I 
Sa (O.OlO.O I 
NAI-NAIIAI 
LAlaLAI I A I 
LA  1 1 aL  A I *1 
MAT0Ta2*LAI+l 
NX JaNX I JX I 
LXJaLX I JX| 

LX Jl »L  X J* 1 

MMAXlaMINO(LA|#LXJ 1*1 
IASEQ-LARINX  | U A I 1 I *NAI-LAI 
JXSEQ-LXRINX ILXJ1 | +NXJ-LXJ 
LLAOC-. FALSE . 

LLXOC-.FALSE. 

LOCCAIaLOCAFNILAIl I 
L0CCXJ-LOCXFN|LXJi I 

IF  INAIaLAI.LE.LOCCAD  LLAOC-. "RjE  , 

IF  ( NXJ-LXJ.LE .LOCCXJI  LLXOC-.TRUCx 
LLANOC-.NOT.LLAOC 
LLXNOC-.NOT.LLXOC 
INXA I- I APTS. ( I ASEQ-1  I 
JNXX JaIXPTS* IJXSEQ-1 I 

IF  I .NOT.LLSAME.OR.LAI .NE.LXJI  GO  TO  6 
ZSUM*( 0.0#0.0) 

00  1 I-1#M*Y0T 

1 ZSUMaZSUM*CONJG(  CA  ( JX#  I I )*CA  ( I A#  J I 

IF  (LLDTALI  MRITEI6#I88I  NXJ»L X J# N A J # L * I » Z SUM 
888  FORMAT!'  ' , ' NX  J at#  12#'  L X J •'»||*'  NA  I • ' # I 2 # I LA)  ■ ' A 1 2 # 

1 ' ZBUM  a ' # 1P2E 1 A * 7 | 

IF  I • NOT . LLGEN I I GO  TO  A 
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0 00 
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76 
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30 

000 

81 
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000 
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92 

000 

63 
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000 

84 
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85 
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000 

86 

96 

000 

87 
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000 

88 
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ooo 
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99 

000 

so 
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ooo 

S3 

103 
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ooo 

99 

109 

ooo 

loo 

109 

005 

101 

109 

010 

102 

109 

015 

103 

109 

020 

10* 

109 

025 

105 

109 

030 

106 

109 

035 

107 

109 

040 

10B 

m 

109 

045 

109 

m 

109 

050 

110 

m 

109 

055 

1 1 1 

109 

060 

112 

109 

061 

113 

109 

065 

11* 

109 

070 

1 15 

109 

075 

116 

109 

080 

117 

109 

085 

118 

109 

090 

M»0 

9CTi  -ELiCT  1 I RXNLa  INXXJaXNULLaR  AN  I.,  INXAIaRAMESHaI  *P  l|  a • FALSE  •.  I 
IF  (LLDTAL)  *R ITE( 6a 890)  N XJ aL XJ aN «N AI aL AI aM aOCT 1 
890  Ffl  RH  AT  ( 1 0 1 A ' NX  J •'  -12.  1 LXJ\-  12  A*  H -»aI2a 

1 • NAI  *'aI2a'  LAI  a|«I2A'  M *'aI2a 

2 ' OCT  1 *'a1PE14-6) 

F.EL1CT1  (RXNLa  IN  XX  Ja  XN UL La  DR  AN La  INXA  1 a RA ME  SHa  1 AP T8 * • FALSE*  t 
IF  ILLOTAL)  WRITE(6<8?2I  N XJ  aL  XJ#|1  «N  AI  »L  AI  aM  aF 
892  format  c o' nx  j «'aI2a'  lxj  -'/is*'  n *'aI2a 

1 «_  NA  L*'#L2/'  LAI  tUlitl M » 1 A 1 2. 

2 ' FIU  *' 1 1 PE  14-6) 

IF  l -NOT- LLDTAL -AND  • -NOT-LLCNFG  ) ae  T9  104 
FSAVE-F 

DO  3 LAKl-l.LAMAXl 
LOCCAK-LOCAFNI LAK1 ) 

IF  (L8CCAK.E0.QI  GO  TO  3 

lak*laki*i 

NAKMAX-L0CCAK4LAK 

MAKT0T-2*LAK*1 

DO  2 NAK-LAKliNAKNAX 

INXAK- I APTS* (LARIN X( LAK1  l+NAK-LAXli 

DO  2 nttAAfi/flAKTOr 

MAK-MMAK-LAK1 

VCCT1-EL2CT1  ILXJaM.RXNLa  IN XX  Ja  LA Ij  CURANL a 1 NX AI  , 

1 LAKaMAKaRANLa INXAK,LAX«MAX<RANL/INXAK» 

2 RAMESHa  IAPTSa -FALSE.  I 

IF  (LLDTAL)  WRITE) 6a  894 ) NXJ a L X J aH»N AI aL AI aM aN AK aL AH aH AX A V86T1 
894_  FORttAIJ  JjAIAX  J ■ ' >12a  ' LXJ  -'.Ilil  Jt  •'  iLZi 

1 • NAI  * ' # I 2a  1 LAI  a I • I2a  ' fi  ■ ' a I 2a 

2 ' NAK  .IaI2i'  LAK  i!iU/'  MAK*'.I2. 

3 ' VCCTl  ■ 'a  1 PE  1 4 • 6 I 

VECT1-EL2CTI (LXJ/M,RxnLa INXX Ja L*Ki MAKa RANLa l NXAKa 

1 LAKaHAKaRANLa1NXAKaLAI*NaRANLaINXAIa 

2 RAMESH, IAPTS/ -FALSE.)  

IF  (LLDTAL)  WR  I TE  ( 6a  896  ) NXJ  aL  X J aMaN  AX  a L AK  aM  AK  aN  AI  AI  «0  * V(G  f| 

896  F«PMAT('  ' a ' NX  J • ' a I 2a ' LXJ  ■'aI*«'  H «'aI2a 

1 • NAK  ■ ( a I 2a  ' LAK  • f a 12  a ' M AK*  1 A I 2a 

2 • NAI  • ' a I 2a  ' LAI  a I • I2>  ' M ■ ' a I 2a 

3 • VECT1  *'a1PE14.6) 

2 F*F* (4 -0*VCCTl-2.0*VfCTl )*FRA(LAK1aHAK*LAK ) 

3 CONTINUE 

WRITE l 6a 199)  NXJaLXJaOaNAI aLAI aMa2 
199  FORMAT ('O' A 'CLOSED  SHELL  VERSION  a IVES  ' / • 0 • a ' N XJ* ' » | 2a 

1'  LXJ*  'a  1 2 a ' M ■ ' a I 2a  ' NA  I*  ' a 12  a * L*I*'a12a'  M*'aI2«I  Fiy*'» 

2 1PE1 4 - 6 ) 

F*FSAVE 
104  K0UN0*1 
KOUNF-1 

DO  103  LAKI-IaLAMaXI 

loccak-locafni lakj ) 

IF (LOCCAK.EO.O)  SO  To  103 

LAK-LAKl-l  

nakmax*loccak*l*k 

00  102  NAK*LAK  1.  NAKMAX 

INXAK*  IAPT  S* (L  AR INX ( L A K 1 I +NAK-LAK1 i 

QATEM2-QA(L*11»X0UNGa2) 

CALL  FK  ( RAME  SHaRANLa  Oa  IN  XAKa  INXA  Ia  (MXXJa  ANSI 

F*  F t XAF  ( LA  11 A KOUNF  1 f ANS  

kounf*kounf*i 

100  QATEMI-GAILAIIaKOUNQaI ) 


4/. 


119 

109 

095 

CALL  GKI  RAMESM.RANL* GATE  Ml, INXAK# INXAI* 1NXXJ.ANS ) 

120 

109 

100 

F-F+XAG!  LAI1 jKOUNG >»ANS 

121 

109 

105 

KOUNG-KOUNG*l 

122 

109 

110 

IF  (KOUNG.GT.NAGt  LA  1 1 > 1 00  TO  102 

123 

109 

115 

tFlGATEN2.EQ.GA(LAll*K0UNG#2l 1 Gfl  TO  100 

124 

109 

120 

1 02 

CO MT  INUE 

129 

109 

125 

1 0 3 

CONTINUE 

126 

110 

000 

IF  (LLDTAL.OR.LLCNFG)  WRITE(6*898)  NX  J*  LX  J*  M*  NA  I#  LA  t«  0/  f 

127 

111 

000 

898 

FORMAT  1 ' O'  *'  NX  J *'*I2*'  LXJ  •'#!**•  M -'#12/ 

128 

112 

000 

1 ' NA I ***I2#  1 LAI  • I* }2#  • M -•*12# 

129 

113 

000 

2 ' FAU  -'*1PE14.6> 

130 

114 

000 

4 

CALL  I 0 ( LLGENI*  I IF  ILE#  OC T 1 * • FALSE « «L^BUF  1 

131 

115 

000 

CALL  I 0(  LLGENI*  I IF  ILE*  F,  .F  AL  SE  • » LLBUF  I 

132 

116 

000 

S-CMPLXI  0CT1#0«0  l»ZSUM 

133 

117 

000 

w-CMPLX(F*0«0l »ZSUH 

134 

118 

000 

IF  (LLOTALI  WRITEI6/899)  H*S 

135 

119 

000 

899 

FORMAT!'  '*'HCUM  * • * 1 P 2E 1 4 . 7 # ' 8CUM  -'*2E14.7I 

136 

120 

000 

6 

IX JONL-LXOINXI LXJ1 •♦LXJ1»I NXJ-LXJ1 * 

137 

121 

oot 

IAIDNL-LADINXILAI1 ) +LA I 1 » 1 NA I-LA I 1 l 

138 

122 

000 

INDEX-0 

139 

123 

000 

DO  17  MUSET-ljNSETS 

140 

124 

000 

ID  ISP- (MUSET-l  l»LXDINX (LXMAXt  + i 1 

141 

125 

000 

IX JDU-IXJ0NL*JOI8P 

142 

126 

000 

I A IDU-IA  J0NL»(  MUSET-l  ) »L  AD  I NX  1 LAMA  XI  ♦!  ) 

143 

127 

000 

NAXULM-NAXSETI MU8ET) 

144 

128 

000 

DO  16  M1*1*MMAX1 

145 

129 

000 

146 

130 

000 

MUINX-INOEX 

147 

131 

000 

ZKCRM-lOtO*O.OI 

148 

132 

000 

DO  607  MU*1*  NAXULN 

149 

133 

000 

RIJBX-RUB<MUINX*1 1 

150 

134 

000 

RUBY-RUB (MUINX+2 ) 

151 

135 

000 

RUBZ-RUBIMUINX+3) 

152 

136 

000 

MUINX-MUINX+3 

153 

137 

000 

IF  ( .NOT .LLGEN I ) GO  TO  603 

154 

138 

000 

IF  (MUSET.LE.NSETSCl  GO  TO  601 

155 

139 

000 

ZCRM-  ( 0 • 0#  0. 0 ) 

156 

140 

000 

GO  TO  603 

157 

1*1 

000 

601 

ZCRM-ZCRGTM!  M,  RUBX  * RUB  Y»  RUBZ  * JX*  LXU*CX*  MBL  CMX,  I A*  L *(  *C  A*  MBLCHA  ) 

158 

142 

000 

603 

call  i 0(  llgeni  *iifile*  re  zcrm#  .falis.#  llbuf  > 

159 

143 

000 

Call  I 01  LLGENI  * I IF  ILE*  IMZFRM,  .FAL»E«#LLBUF  ) 

160 

144 

000 

IF  ( MU SET  *GT • NSE  TSC l GO  TO  607 

161 

145 

000 

ZKCRM-ZKCRM+CEXP  (CMPLX  ( 0 . 0, 0 .0-T *BPl *UNI T*  1 X XX  *RUB84  XK  YfRUK* 

162 

146 

000 

1 *XKZ*RUB<» II4JCR8 

163 

147 

000 

607 

CONTINUE 

164 

148 

000 

IF  (LLDTALI  WR  I T E l 6#  900  1 MUS  E T * JX#  LX  U*  I A / L A I * M * Z XC  BP  * N AX  UL  9 

165 

149 

000 

900 

FORMAT  (/ '0 '»  'MUSET  • »#  12#  • JX  -'*I2»'  LXJ  -'*12*'  IA  «•#  ig* 

166 

150 

000 

1 ' LAI  ><*I2*'  M *'#IJ,»  ZKCRM  -'#1P«H4,*, 

167 

151 

000 

2 ' NAXULM  -',131 

168 

152 

000 

IF  ( .NOT -LLGENI 1 GO  TO  1 1 

169 

153 

000 

susetm-o#o 

170 

154 

000 

husetm-o«o 

171 

155 

000 

IF  ( CABS ( ZKCRM I .GE -EP8L0NI  GO  TO  608 

172 

156 

000 

ZKCRM- (0.0*0.01 

173 

158 

000 

60S 

IX  J0M-IXJ0U*M1 

174 

159 

000 

IAIDM-IAIDU*M1 

175 

160 

000 

ccccc 

176 

161 

000 

IXjDM-IALPTS*! IX JOM-J ) ♦! 

177 

162 

000 

READ  DISK  IXAFLE* 1XJ0M*ALPHA 

178 

163 

000 

IXJDM.UXJDM-l  )/IALPTS»l 

95 


179  - 164.000  CCCCC  ****** ***4 ************************************ »*****4*44 44*4*4**** 

180  - 165*000  CCCCC  ******************************  **************** ******************  ** 

181  - 166*000  C READ  I 1 XAFLE’  IX JDM)  ALPHA 

182  - J67*Q00  CCCCC  a***************************************************************** 

183  - 168.000  SUSETM*0VRLAP(  LXJ.M,  AL  PH  A,  MX  PT  S,  MXPA  N,  NX  PA  N,  LA  I,  M,  HANL  »|  NX  Ai  , 

184  - 163*000  1 RAMESH, 1 APTS ) 

18b  - 170.000  IE  (LLOTAL)  NR  I TE  ( 6/901)  N XJ ,L  XJ,M  *5  AI  , L AI  ,M  , SUSET  f 

186  - 171*000  901  FORMAT ( 'O' , 'NXJ  *'.I2,'  LXJ  • • * Z S • ' M *',I2/'  N *1  p',11, 

187  - 172.000  1 ' LAI  • 1 » 1 2*  1 M -',18*1  0 *'»1PE14,A/I 

1 88  - 173. OOP ELIA-OVRLAPILXJ,  H,  ALPHA/  MXPTS,  MX  PAN*  NX  PAN/  LAI/M,  PRAHL/1HXA4* 

1 89  - 174*000  1 RAMEgH/IAPTS I 

190  - 175.000  IE  (LU5TALI  NR  ITE  ( 6/ 9001 2 | NXJ, L XJ A* »N AI ,L Ai »M .ELI  * 

191  - 176.000  90012  FORMAT!'  ' / ' NX  J -',12,'  LXJ  «'/!*»'  M - ' / I 2/  ' NAI  «•/< J, 

192  - 177*000  1 ' LA  2 • ' / J 2/  ' M -'.I**!  ELIA  *',1PE14*#> 

193  - 178.000  HTEmP-0.5*EL1A 

194  - 179^000 DO  700 3 LAK1-1  /LAM A XI 

195  - 180*000  LOCCAK-LOCAFNI LAX1 > 

196  - 181.000  IF  (LBCCAK.EQ.O)  GO  TO  7003 

197  - 182.000  LAK-LAK1-1 

198  - 183.000  NAKMAX-LOCCAK+LAK 

199  - 184.000  MAXT0T-2*LAK*1 

„?(10  T 185.000 no  7002  NAK-LAK1.NAKHAX 12T 

201  - 186-000  INXAK-IAPTS*(LARINX(LAKl l+NAK-LAKli 

202  - 187.000  DO  7002  MMAKpI/MAKTOT 

203  - 188.000  MAK-MMAK-LAKl 

204  - 189.000  HYVC-HYBAAAILXJ/M/ALPHA.NXPAN/LAI/MtRANL.INXAl. 

205  - 190.000  1 LAX, MAX, RANL , I NX AX, LAX, MAX, RAN L, IN X AX# 

_g06_  - 131.000  2 RAMESH. I APTS, MXPTS, HXP AN/. FALSE.  > 

207  - 192.000  IE  (LLOTAL)  NR ITE ( 6/ 9001 4 I NXJ/ L XJaM/NAI /L AI / M/N AK«L AK*P AK«H YVC 

208  - 193. OO0  9001“  FORMAT ( ' '.'NXJ  • ' / I 2/  ' LXJ  -'.I**'  M -'.12/ 

209  - 194.000  1 ' NAI  ■ ' « 1 2/  ' LAI  *I*12>'  M -'.12. 

210  - 195.000  2 ' NAK  ■1,12,'  LAK  •|*J2,'  MAX*'. 12. 

211  - 196.000  3 ' HY VC  -'.1PE14.6I 

212  - 197.000  HYVE-HYBAAA<LXJ»M|ALPHA/NXPAN,L*Xi!I4N.RANL»INXAK* 

213  - 198*000  1 LAX.MAX.RANL.lNXAK/LAI/H«RANL. INXAI, 

214  - 199*000  2 RAMESH,IAPTS.MXPTS/MXPAN«»EALSE. ) 

215  - 200.000  IE  (LLOTAL)  NR  I T E I 6.  9001 5 ) N XJ ,L XJ«M,N AX ,L AK ,M AX ,N Al/LA* »M.WYVE 

216  - 201.000  90015  FORMAT!'  '/'NXJ  *'.I2/'  LXJ  M • ' / 1 2/ 

217  • 202.000  1 ' NAK  *'.12/'  LAX  *1*12.'  MAX*'. 12. 

218  - 203.000  2 ' NAI  *'.12.'  LAI  __M  *'.12/ 

219  - 204.000  3 ' HY VE  *'.1PE14.6I 

220  - 205.000  HTEMP*HTEMP42,0*HYVC*FRA(LAK1/NAK*LAX) 

221  - 205.500  HTEMP«HTEMP-2.0*HYVE*FRASP(LAX1.NAX*LAX) 

222  - 205*000  7002  CONTINUE 

223  - 207.000  7003  CONTINUE 

224  - 208.  OOQ  _ HUSFTM*HU8ETM*HTEHP  

225  - 209.000  IF  (LLOTAL)  NR ITE ( 8. 9001 6 ) 

226  » 210.000  90016  FORMAT! 'O' ) 

227  » 211.000  8 IF  ( LL ANOC • OR. LL XNOC ) 00  TO  9 

228  - 212.000  C-COUL (LXJ. M.ALPHA.NXP AN, LXJ.M. ALPHA. NXPAN. 

229  - 213.000  1 LAI, M.RANL, INXAI, LAl.M.RANL, INXAI, 

230  - 214.000  _1 RAMESH,  IAPTS,HJ(eiB,MXPAN/HXPT8,|«PAiU./AI,IE.4j 

231  * 215.000  IF  (LLOTALI  WRITC(6,904)  NXJ.LXJ,K«NAI /LAI »M»C 

232  - 216*000  904  FORMAT ( ' '.'NXJ  •',!*,  ' LXJ  *',II*I  M -',12,'  N*I  V'.il, 

233  » 217.000  1 ' LAI  *',I2,'  M *',I*»)  C - ' , 1 PE  1* *#/ I 

234  - 218.000  M(J SE  TM *HUSET M* 2 • 0* C* SU SE TM *SQR  T ( FP X8P l LX Jt ,NXJ-L XJ  JpFR  A|P( 

235  • 218*005  1 LA  1 1 , N AI *L A I I | 

236  - 219. QOO  3 CONTINUE-.-  

237  • 220.000  IF  ( LL SA ME • A ND • I XJOM .E 0. I A IOM I GO  TO  *009 

238  - 221.000  CCCCC  ***,*»»»****»*•*»*******»*,♦ ********  ******  4* *4 *••• »»•*•*.»*••* »•*« 
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239 

222 

000 

2*0 

223 

000 

2*1 

22* 

000 

2*2 

225 

000 

2*3 

226 

000 

2** 

227 

000 

2*5 

228 

000 

2*6 

229 

000 

2*7 

230 

000 

2*8 

231 

000 

2*9 

232 

000 

250 

233 

noo 

251 

23* 

000 

252 

235 

000 

253 

236 

000 

25* 

237 

000 

255 

238 

000 

256 

239 

000 

257 

2*0 

000 

258 

2*1 

000 

259 

2*2 

000 

260 

2*3 

000 

261 

2** 

000 

262 

2*5 

000 

263 

2*6 

000 

26* 

2*7 

000 

265 

248 

ooc 

266 

2*9 

000 

267 

250 

000 

268 

251 

000 

269 

252 

000 

270 

253 

000 

271 

254 

000 

2 72 

255 

000 

273 

256 

000 

27* 

25  7 

000 

275 

258 

000 

276 

259 

000 

277 

260 

000 

278 

261 

000 

275 

261 

500 

280 

26  2 

000 

281 

263 

000 

282 

26* 

000 

283 

265 

000 

28* 

266 

000 

285 

26  7 

000 

286 

2 68 

000 

287 

269 

000 

288 

270 

000 

289 

271 

000 

290 

272 

000 

291 

273 

OOO 

292 

27* 

000 

293 

275 

000 

29* 

275 

005 

295 

275 

010 

296 

275 

015 

297 

275 

020 

298 

275 

025 

ccj;cc 

ccccc 

c 

ccccc 


14  I DM-  IALPTS»(  I a IDM-1  1 *1 
RF  AD  DISK  IAXFLE,IAIDM, ALPHA 
I A IDM-  ( I A I DM-1  )/  JALPTS-fl 
**  * 


READ! IAXFLE' IAIOM)  ALPHA 


EH  X -OVR  LA  R I LA  1/  H,  ALPHA,  MX  RTS,  MxPaNaNXPAN,  LX  J,  M,  DR  8NL,  INXX^, 

1 RXME8H,  I XPTS  I*  I - J . 0 I ••  (LAI  *LXJ  I 

IF  ILLDTAL)  HR  ITEl  6,  900*3)  N X J,L  XJaM/N  AI  , L AI  ,M,  E LI  g _ 

900*3  FORMAT!'  ','NXJ  -',12,'  L XJ  • • * IS  a • M -',12,  ' NM 
1 ' LAI  ->,I2,'  M -',IZ«t  EL1X  «',1PE1*a8) 

HTEmP-0.S*EL1X 
DO  9008  LXK1»1,LXMAX1 
LPCCXk-LOCXFNI LXK1 ) 

IF  (LOCCXK.EQ.O)  GO  TO  9008 
LXK-LXK1-1 

nxxmax»loccxk*lxk 

mxktot-2*lxk*i 

00  9007  NXK-LXK1,NXKMAX 

INXXK-IXPTS*(LXRINX(LXKll*NXK-LXKli 

DO  9QQ7  MM XK • l , M XK TO T 

MXK-MMXK-LXKJ~ 

HT  VC-HYB  AAA  ( LA  I,  M,  ALPHA,  NX  PAN,  LX  J,  M«RXNL,  1 NXXJ, 

1 LXK,  MX K,  RXNL,  INXXK,LXK,MXK,RXNL,  INXXK# 

2 RXMESH, I XPTS»MXPTS,HXPAN> .FALSE.  I*  <-l«0)M (L8l*LXJ | 
IF  ILLDTAL)  HR ITE ( 6, 900*6 ) N XJ , L X J«M,N AI , L AI , M , N XK aLXKaSXK ,H TV C 

900*6  FORMAT!'  ','NXJ  -',12,  ' LXJ  •’,!*«' H -',12/ 

' NAI  «',I2,'  L A I - f A 1 2 , • M -',12, 

' NX  K Pi, 12,'  L XK  «|«12,'  MXK-'»I2, 

' HY  VC  * ' 1 PE  1 * . 6 ) 

HYVE-HYBAAAl  la  I,  M,  ALPHA, NX PAN, LXK A MXK,  RXNL,  INXXK, 

LXK,  MXK,  RXNL,  INXXK,LXJ,M*RXNL,  IN  XX  J, 

RXMESH, I XP TS, MXPTS,MXP AN »« FALSE* )* 1-1*0) f»(LA|*L«J ) 

IF  ILLDTAL)  HRITEI 6,900*9)  NX J , L XJ«H ,NXK,L XK , MXK , N AI ,L A) ,M »*YV E 
900*9  FORMAT!'  ','NXJ  «',I2,'  LXJ  «’,I2a'  M «',I2, 

1 ' NXK  p',12,'  LXK  ■ | a 12,  ' MXK-', 12, 

2 ' NAI  -',12,'  LAI  « I A J2, ' M -',12, 

3 ' HY VE  »'1PE1*.6) 

HTEMP-hTEmP«2,0*HYVC*FRx (LXK1, NXK-LXK) 

HTEMP-HTEMP-2.0*hyVE*FRxSP (LXKl,NXKrLXK I 
CONTINUE 

continue 

husetm-husetm-htemp 
IF  I LL  DT  AL ) HR  I T E | 6, 900 1 6 ) 

CALL  I Ol LLQENI, I IF ILE, SUSE  TM  , . F aLMa  , LLBUF ) 

CALL  IOi  LLGENI,  I IF  ILE,HUSETM,  .FALSE «, LLBUF  ) 

IF  (MUSET.GT.NSETSC)  GO  TO  16 
S-S*CMPlX! SUSE TM, 0*0 l*ZKCRM 
Hoh*CMPlX I MUSE  TM,0.0 )»2KCRM 
IF  ILLDTAL)  hRITE(6,899I  H,S 
CONTINUE 

INDEX-INDEX*3aNAXULM 
RETURN 
END 

SUBROUTINE  F K( R*  PS I,K, INXL, INXM, INXN, ANS  > 

DIME  NS  ION  R ( lt>l  ) ,PS1  ( 1 I 
COMMON  /SKRAP/SI  161  ) ,SNI  1 1>  1 ) 

computes  fk  radial  integrals 
ans-o. o 


9007 

9008 

9009 


16 

17 


CCCCC 


9 7 


On  1 1*1*161 
St I)-0»0 
1 SN  ( I 1-0.0 

DO  3 1*3/ 161*2 
INXL I- INXL+I 

3 SN  ( I )*SN ( I -2 )♦ 1 ( R(  I ) -R ( 1-1  ) ) /3 . I *( PS  It  IN  XL  I ) **2/ 
lot  II +* (K-l  ) + 4. +PSI tl NX  LI-1  )**2/R  H *1  l**( K«i ) 

2+PSI ( I NX LI -2  )**2/R  t 1-2  )**( K-l ) ) 

DB  4 1*3/161/2 
INXL I- INXL+I 

4 St  I I -S ( I -2  )♦ t ( R(  I ) -R  ( 1-1 ) ) /3 • ) *1  PS  I ( INXL I ) **2* 

10(  I ) *♦ (K+2 > + 4. *PSI  t I NX  LI -1  >**2»R ( I -1 )**( K+21 
2+PSI  ( I NX  LI -2  )»*2*R ( I -2  >**( K+2)  I 

DP  5 1-1/161/2 
INXMI-INXM+I 

INXM-INXN  + I 

5 St  I I *PSI  ( I NX  PI  I* PS  I ( INXNI ) *( St  I I /R  < 1 )**<  K-l ) 
1+P(I)**<K+2)*(SN (1611- SN  till) 

St  2 ) -0-5*( St  1 ) +S ( 3 ) ) 

St  160) -0 • 5* ( St  159) +S ( 161  ) ) 

CALL  INTPtS/R) 
oe  6 1-1/159/2 

6 ANS-ANS+ ( ( R<  1*1  I -R ( I ) I /3. I *<  St  I I +4#*S<  1 + 1 ) +S ( I +2 ) ) 

ANS-2 • O+ANS 

RETURN 

END 

SUBROUTINE  GK( R/ PSI/ K/ INXL/ INXM/ INXN/ ANS I 
DIMENSION  R(  Ifcl  I./PSI  t 1 I 
COMMON  /SKRAP/SI  161  I /SNt  161  I 
CCCCC  COMPUTES  GK  RADIAL  INTEGRALS 
ANS-O. 0 

no  1 1-1/161 

St  I ) -0 .0 
1 S_N  ( I I - 0 . 0 

DO  3 1-3/161/2 
INXL  I-  INXL  + I 
INXMI-INXM+I 

3 SN  ( I l-SN  t 1-2  )♦  ( ( R(  I | -R  ( 1-1  I | /3.  I *|  PS  I ( INXL  I ) *PSI  ( IN)! MI  )/ 
1 R ( I I +* (K-l  l + PSI ( INXL  1-1 ) *4 . »PSI  ( INXMI-1 ) /R ( 1-1  )**( K-l I 
2+PSI I I NXLI-2 )*PS  I ( INXMI-2 ) /R ( 1-2  l**( K-l I ) 

DO  4 1-3/161/2 

INXLl-INXL+I 

INXMI-INXM+I 

4 St  T I »S ( 1-2  )♦ t I R(  I I -R ( 1-1  ) ) /3.  I *( PS  l t INXL I I *PSI  ( I NX  MI  >* 
1R(  1 1 +* (K42 ) + *. »PSI ( INXLI-1 l-PSI ( INXMI-1 I*R( 1-1 )»*( Kt2) 
2+PSI  ( I NX U- 1 -2  ,I*PS  I ( INXM  1-2  ) *R  ( 1-2  )*  + ( K + 2 I ) 

00  5 1-1/ 161/2 
INXL I-INXL+I 
IN'XNI-INXN  + I 

5 SI  I ) -PSI  ( INXNI  )*PSI ( INXL I ) *( St  I ) /«  tl  >**( K-l ) 

1 +0 ( I )**( K + 2 I *( SN ( 161  l-SN ( I I ) I 

S(2) -0-5*1  St  1) +S(3 ) ) 

S(160I-0«5*(S(159)+S(161I) 

CALL  I NT P t S/ R | 

DO  6 1-1/159/2 

6 ANS- ANS- t t R(  1 + 1 ) -R  t I > ) /3* ) ♦(  St  I I +4  «*S(  I + l I +S ( I +2  I I 
ANS-2. 0*ANS 

RETURN 

END 

SUBROUTINE  INTPtS/R) 


3b9  - 

275 

330 

DIMENSION  S( 161 )*R< 161 ) 

360  - 

275 

335 

OP  1 I-4»158;2 

36 1 “ 

275 

340 

A-  ( R ( I >-R(  1-1)  )*(R(I  ) - R ( 141)  > * < R I I if-  « < 1+3)  ) 

362  - 

275 

345 

B-  ( R ( I )-R(  1-3)  ) * ( R ( I I — RIIM)  l*(R(li-R(l43)  1 

363  - 

275 

350 

C- I R ( I )-R  I 1-3)  )4(R(I  >-R(  1-1  ) )*(R|IipR(I*3)  ) 

364  - 

275 

355 

D-  ( R ( I 1-R1I-3)  ) - ( R ( I l-R(I-l)  l*(R|IlfR(in!  I 

36b  - 

275 

360 

E- I R I I -3  ) - R I I — 1 ) ) * ( R ( I -3  ) - R ( 1 + 1)  )MR(I-3)-R(l43)  ) 

366  - 

275 

365 

F-(RII-l)-R(I-3>  )*(R(I-1)-R(I-H)  )<MR(I-1)-R(I43)  ) 

367  - 

275 

370 

G« ( R ( I +1  )-R(  1-3)  ) * ( R ( I +1  )-R(  I — 1 ) )* (R ( I +1 )-R< 1 + 3)  ) 

368  « 

275 

375 

N- (R ( I 43  )-R(  1-31  )*(R(I+3)“ R(  I — 1 ) )*(K(I43)-R(l4l)  ) 

369  - 

275 

380 
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m 

84  7 

000 

GO  TO  300 

962 

m 

848 

000 

900 

HR  I T E ( 6.  910  1 

963 

m 

849 

000 

910 

FORMAT  ( 'O' /' PARI  TY/  SUM,  OR  TRIANGLE  ERROR  IN  FUNCTION  C LE  8 ' ) 

96* 

m 

85  0 

000 

920 

WR I T E < 6,  930 1 A J1,A J2»A J3 , a Ml , A m2, AM3 

9 65 

m 

851 

000 

930 

FORMAT ( * ','J1  »',F5.1,'  J2  *' ,FB. 1a  ’ J b'*F6«1«3XI  Ml  •>,Ft.l, 

966 

m 

852 

000 

1 

' M2  •' , F 5 • 1,  ' M ,FS. 11 

967 

m 

853 

000 

RETURN 

968 

m 

85* 

000 

END 

969 

m 

855 

000 

C ! ASSIGN  M I BO,  if  ILE,ME  VDRVED  >,  (SAVE) 

970 

m 

856 

000 

CJFcRTRAN  LS,BO,ADP 

971 

m 

85  7 

000 

SUBROUT I NE  EVDRVEl  N,  XKX,  XK  Y,  XKZ,  IxTaNVEC»IEVFLE,LLPT  al* 

972 

m 

858 

000 

inrout, llmtrx  ) 

973 

859 

000 

LOGICAL  LLOTAL»LLMTRX 

97* 

860 

000 

COMPLEX  SM  AT  11156)  ,DUMMAT(  1156  ),  CHAT  ( 1156) 

975 

m 

861 

000 

DIMENSION  E ( 3* ) 

976 

m 

861 

500 

COMMON  SMAT, DUMMAT/CMAT 

977 

m 

862 

000 

RE  AL  *8  ZHMAT,ZSMAT,ZCOET,ZE 

978 

863 

000 

DATA  ZHMAT/'  HM AT  * / , ZSM  AT / 1 SM AT  1 / , Z COET / ' COETlA,Zfc*'  E'/ 

979 

86* 

000 

DATA  LIMHS/15/ 

980 

865 

000 

DATA  L IMOUT/25/ 

981 

866 

000 

c 

DIMENSION  SMAT, DUMMAT/CMAT (NaN)  where  n-mblhax 

982 

867 

000 

c 

E ( N ) 

983 

m 

868 

000 

IHSFLE-32 

98* 

m 

869 

000 

MBLHAX-3* 

985 

m 

870 

000 

IF ( N • L E • MBLH AX ) GO  TO  63 

986 

m 

871 

000 

WR I TE ( 6, 900 1 N/MBLHAX 

987 

m 

872 

000 

900 

FORMAT ( 1 ','N  *>,13,1  EXCEEDS  DIMENSION  MBLHAX  •',13, 

988 

m 

873 

000 

» XN  SUBPROGRAM  EVDWVtt^ 

989 

m 

87* 

000 

call  exit 

990 

m 

875 

000 

63 

NN ■MBLHAX* MBLHAX 

991 

m 

876 

000 

LINDIM-NAN 

992 

m 

877 

000 

C NOTE 

that  SMAT  IS  OVERLAP  matrix 

993 

878 

000 

C AND 

that  dummat  is  identity  matrix. 

99* 

879 

000 

C CHAT 

IS  HAMILTONIAN, but  IT  WILL  SOON  BE  DESTROYED. < 

995 

887 

000 

IF|LLDTAL«OR.LLMTRX)CALL  C0UT21 ( CMAT,N,N,ZHMAT ) 

996 

888 

000 

IF(LLDTAL.OR.LLMTRX)CALL  C0UT21ISMAT,N,N,ZSMAT) 

997 

m 

889 

000 

LIMHS-LIMHS-1 

998 

m 

890 

000 

IF (L IMHS»LT.O)  GO  TO  6*20 

999 

m 

891 

000 

WRITE) IHSFLE 1 N , 

1000 

892 

000 

WR  ITE)  IHSFLE  1 (CMAT)  I ) , I -1,L  INOIMI  Al  SMAT  ( I ),  I»l,  LIND  1M  1 

1001 

893 

000 

6*20 

IROOTS-N 

1002 

89* 

000 

CALL  D I AG  I N, E 1 

1003 

895 

000 

WRITE!  IEVFLE  )XKX,XKY,XKZ«IWT,N, IRBOTS 

100* 

896 

000 

WRITE!  IEVFLE  1 ( E 1 J ) , J»  1 , IR  00  TS  ) 

1005 

897 

000 

DET-1.0 

1006 

m 

898 

000 

DO  6*30  I»l, IROOTS 

1007 

m 

899 

000 

6*30 

0ET-0ET*E(  I ) 

1008 

m 

900 

000 

RATIO-E! 1 l/E ( IROOTS) 

1009 

901 

000 

WRITEI6, 927501  DET , RATIO 

1010 

902 

000 

92750 

FORMAT!'  I,'DET(S)  -',1PE15.8,'  E S l 1 1 /E  S ( I R 00  TS  1 *t»lPE15i*l 

1011 

903 

000 

IF  (RAT  10. LE. 0.01  CALL  EXIT 

1012 

m 

903 

010 

RE  AD  ! 23  ) SMAT, DUMMAT 

1013 

m 

903 

020 

REWIND  23 

101* 

m 

903 

030 

C NOTE  SPAT  IS  HAMILTONIAN 

1015 

m 

903 

040 

C AND  OUMMAT  IS  OVERLAP  MATRIX. 

1016 

m 

904 

000 

call  diagin,ei 

1017 

m 

905 

000 

IOUT-NVEC 

1018 

m 

906 

000 

limout»limout»i 

109 


1 


1013 

907 

000 

IF ( I OUT. EU .0* AND  »L IM0UT.GT .0  ) I OUT -I  ROOTS 

1020 

908 

000 

IF ( I OUT*  ST . I ROOT  SI  I OUT -I ROOTS 

1021 

903 

000 

IF  ( I OUT.OT  .0  I CALL  C0UT21  ( DU  MM  AT  < I OU  T*  N/  ZC  OE  T ) 

1022 

91Q 

OOP 

CALL  caull (EiN#ZE) 

1023 

911 

000 

WR  ITE(  IE VFLE  ) ( El J) • J«l* I ROOTS) t ( DU MM  AT ( 1 )t  1-1/ LINDJW I 

1024 

912 

OOP 

RETURN 

102b 

m 

913 

000 

END 

102b 

m 

914 

000 

SUBROUTINE  C8UT2K  A/ IOUT jN/Z  ) 

102/ 

m 

91b 

000 

COMPLEX  A ( 1 ) 

1028 

_ 91  b 

000 

RFAI  *8  Z 

1029 

m 

917 

000 

WRITE! 6/b) 

1030 

m 

91  8 

000 

5 FORMAT!/) 

1031 

m 

913 

000 

OP!  1 J-1/I0UT 

1032 

m 

920 

000 

JSUB-! J-l ) *N 

1033 

m 

921 

000 

1 WRITE! 6<  2 ) ( Z, It Jt A! JSUB  + I )i 1-1/ N) 

1034 

92  2 

000 

2 FARM  AT  1 1P3  (Afej,  » ( «jJ.2j  ' • ' t I 2a  ' ) *'  i2fcl*P  > ) ) 

103b 

m 

923 

000 

return 

103b 

m 

924 

0 00 

END 

1037 

m 

92b 

000 

SUBROUTINE  COUTKXaN/Z) 

1038 

m 

92b 

000 

RE AL *8  Z 

1039 

927 

000 

DIMENSION  X(N) 

1040 

328 

000 

WR  IT£(  bj  11 

1041 

92  9 

000 

1 FORMAT (1H0) 

1042 

930 

000 

WR  I T E l 6#  2 ) (ZjJ/X(J)/J*l/NI 

1043 

* 

931 

000 

2 FORMAT I1P4 1 IX/ A6, '(' a I 2a ' ) -'aE14.7H 

1044 

m 

332 

000 

RETURN 

104b 

m 

933 

000 

END 

104  b 

m 

934 

OQO 

SUBROUTINE  DIAQi MSIDaD ) 

1047 

93b 

000 

DIMENSION  SCRAT! 34 >a A A ( 34,  34 I, AR ( 34a 34  ) a 

1048 

m 

336 

000 

lAI(34,34)1D!34),E(34»,E2(34),TAUI2f34|#ZR(34/34),Zl(34,34)» 

1049 

m 

93  7 

000 

2BR (3  4/ 34  )/CC |34a  34 ), A! 1 1 5b )a Bl 11 561* Cl  1156 ) 

lObO 

m 

938 

000 

COMPLEX  A,BaCaSCRAT, AAaBBaCC 

lObl 

m 

938 

boo 

COMMON  AaBaC 

1 0b2 

m 

933 

000 

COMM  ON/DlA/SCRAT 

10b3 

m 

940 

000 

EC Ul VALENCE  IA.AA>a<B!1>aBBI1a1>aAI(1a1> 1 a < 8 ( b 79  1 a AB  ( 1 A i > I A 

10b4 

m 

94  1 

0 00 

1 ( C ( 1 ) a CC ( 1 a 1 )<ZI (1/1  ) 1* ( C ( 579 | a Z R I 111)  ) 

lObb 

m 

942 

000 

c 

FINOS  EIGENVALUES  and  EIGENVECTORS  OF  A ( PS I ) -E  1 B > 1 P»I  ) 

10bb 

m 

943 

000 

c 

USES  CMOLESk I DECOMPOSITION 

1 Ob  7 

944 

000 

c 

put  a and  b In  form 

1 0b8 

94b 

000 

NM  ■ 3 4 

1 0b9 

a 

946 

000 

N-MSID 

lObO 

• 

94  7 

000 

DO  1 I«1#N 

lObl 

m 

94  8 

000 

Of!  1 J»1aN 

1 0b2 

949 

000 

(1*1 )*N*J 

1 Ob3 

9bo 

000 

1 CC  ( It  J ) - A ( K) 

1 Ob4 

3b  1 

000 

DP  2 I»1»N 

lObb 

9b2 

000 

DP  2 J ■ 1 A N 

10  bb 

3b3 

000 

2 A A ( I / J )-CC ( I A J 1 

1 Ob  7 

9b  4 

000 

DP  3 I«1aN 

1 0b8 

9b  b 

000 

DP)  3 J-l/N 

1 0 b9 

9b  6 

000 

K« ( 1-1 )*N4J 

1070 

m 

9b/ 

000 

3 CCHjJI-B(K) 

1071 

m 

9b  8 

000 

00  4 I-l/N 

10/2 

m 

9b  9 

OOP 

DO  4 J ■ 1 a N 

1073 

m 

96  0 

000 

4 BP ( I « J ) *CC  I I • J ) 

1074 

96  1 

000 

c 

MATRICES  in  2 DIMENSIONAL  FORM  DECOMPOSE  B VIA  CHOLkSKJ 

10  /b 

m 

962 

000 

CALL  LOINaB) 

107b 

m 

96  3 

000 

CALL  LOINV(NaB) 

1077 

m 

964 

000 

c 

L-l  FORMED  IN  BB  FORM  L-l*  AND  PUT  ON  FILE  13 

1078 

m 

96b 

000 

DO  5 I * 1 J N 

I 10 


1073 

m 

966.000 

on  6 J-l/N 

loao 

m 

967.000 

6 

CC ( I • J >«  CONJG ( B B ( J,  I ) I 

1081 

m 

968.000 

5 

CnNT INUE 

1 Jnd 

m 

969. 000 

WRITE  (13) (CC) 

1083 

m 

970.000 

C 

f n RM  L-1H  INTO  CC 

1084 

m 

971.000 

00  7 I-l/N 

108b 

m 

972.000 

00  7 J«1*N 

1086 

m 

973.000 

CCdiJI*  CMPLX  ( 0 .0/0 .0  ) 

1087 

m 

974. 000 

00  8 K-liK 

1088 

m 

37b. 000 

8 _ 

CCJ I<J)-BB(I/K)*AA(K»J)*CC(I/J) 

1089 

m 

976.000 

7 

C0  NT INUE 

1090 

m 

977.000 

C 

FORM  L-lH(L-l)*  INTO  AA 

1091 

m 

978.000 

00  9 I-l.N 

1032 

m 

979.000 

on  9 j-1an 

1093 

m 

980.000 

AA(I>J)«CMPLX(O.OjO.OI 

1094 

m 

981.000 

DO  10  K«1#N 

103b 

m 

982.000 

10 

AA(I.J)-AA(I,J)+CC(I/K)*CONJG(BB(JaKI) 

1096 

m 

983.000 

9 

CONTINUE 

1097 

m 

984.000 

on  ii  i-Ian 

1098 

m 

98b. 000 

DO  11  J«liN 

1033 

m 

986 . 000 

AR ( 1 1 J 1-REAL ( AA(  I, J)  ) 

1 100 

98  7 . 000 

11 

A I ( 1 j J ) ■ A I MA  G ( A A ( I < J ) ) 

1101 

988.000 

Z 

WE  MAY  DIAGONALIZE  NOW 

1102 

989.000 

call  htridknm<n,ar#ai»d.e#E2/Tau) 

1103 

990.000 

on  12  I«1/NM 

1104 

991 . 000 

DO  12  J« 1 j NM 

Hob 

992.000 

ZR ( I < J ) «OEL ( Ii J) 

1106 

m 

993.000 

IF  ( I . GT .N .OR. J. GT .N ) ZR(IaJ)»0«0 

1107 

m 

994.000 

12 

CONTINUE 

1108 

m 

99b. 000 

CALL  I MTQL2I NMiNiDiEiZRi  IABKER  ) 

1109 

m 

996.000 

DO  101  I-liNM 

1110 

m 

997.000 

DO  101  J * 1 i N M 

mi 

m 

998.000 

101 

ZI( Ii Jl»0.0 

1112 

m 

999.000 

CALL  HTRIBKINMiNiARiAIiTAUiNiZRiZIi 

1113 

m 

1000.000 

C 

EIGENVALUES  IN  D 

1114 

m 

1001.000 

C 

ROTATED  EIGEN  VECTORS  IN  ZRiZI  BACK  TRANSFORM  INTO  CC 

11  lb 

m 

1002.000 

00  13  I * 1 i N 

1116 

m 

1003.000 

on  13  J-liN 

1117 

m 

1004.000 

13 

A A ( I » J l-CMPLXl ZR l I i J ) i Z1 ( I > J ) ) 

1118 

m 

100b. 000 

REWIND  13 

1119 

m 

1006*000 

READ  ( 13  ) ( BB  ) 

1120 

m 

1007.000 

DO  14  I-liN 

1121 

m 

1008.000 

DO  14  J* 1 i N 

1122 

m 

1009.000 

CC ( IiJ  l-CMPLX(O.OiO.O) 

1123 

m 

1010.000 

DO  15  K-liN 

1124 

m 

1011.000 

lb 

CC(I»J'“CC(IiJ)4BB(IiK)*AA(KiJ) 

112b 

m 

1012.000 

14 

CONTINUE 

1126 

m 

1013.000 

DO  16  I-IiN 

1127 

m 

1014.000 

on  16  J«liN 

1128 

m 

101b. 000 

K-  ( I -1  ) * N*  J 

1129 

m 

1016.000 

16 

R( < ) -CC ( Ji I ) 

1130 

m 

1017.000 

RE  TURN 

1131 

m 

1018.000 

END 

1132 

m 

1019.000 

SUBROUTINE  LOlNiAl 

1133 

m 

1 020. 000 

DIMENSION  A ( 34i 34 | iB ( 34 ) 

1134 

m 

1021.000 

COMPLEX  AiBiSUM 

113b 

m 

1022.000 

C0MM0N/DIA/B 

1136 

m 

1023.000 

c 

FORMS  LOWER  TRIANGULAR  MATRIX  FOR  CMOLtSKI  DEC OM PO 81 T 1 ON 

1137 

m 

1024.000 

DO  1 I-liN 

1138 

m 

102b. 000 

00  3 J-liN 

1 1 1 
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X.  ELECTRONIC  POLARON  PROGRAM 


1.  Use  of  the  Code 

This  is  a self  contained  code  and  will  produce  the  total 
correlation  correction  due  to  polarization  for  a fee  solid  in  a single 
pass  for  each  point  and  band  in  question.  If  a different  lattice  struc- 
ture is  desired  one  must  change  routine  PTS  which  defines  the  solid's 
Brillouin  zone  and  modify  the  card  in  the  main  routine  defining  the 
solid's  volume.  The  use  of  this  code  is  simple  and  transparent  and  the 
data  definition  is  quite  simple  and  explicit. 


120 


X-2 . INPUT  DATA  DEFINED 


Card  1 
Card  2 
Card  3 


ITYM,  unformatted-time  in  minutes  till  checkpoint 

48  times  914  - gives  cubic  rotation  matrices 

20A4  ZLAB  - label  to  be  printed  at  head  of  output 


Card  4:  2014,  N0RB  - number  of  orbitals  needed 

NBND  - number  of  bands 
N0CC  - number  of  occupied  bands 

IBAND(I),  1*1  - tells  which  orbital  each  band  refers  to 
next  set  D0  301  = 1,  N0RB 


Card  5:  14,  6X,  3F10.5 

NC0EF  - number  of  ST(0)  in  this  orbital 

UP(I)  = average  energy  of  the  band  for  this  orbital 

UH(1,I)  = o hopping  coef. 

UH(2,I)  = hopping  coef. 


next  card  D0  31  J-l,  NC0EF 

Card  6:  AJ(J),  ZETA(J),  WT(J)  from  0(r) 


NC0EF 

* [ N 

J*1 


WT(J)* 


fAJ(J) 


x exp  (-ZETZ(J)  + r) 

31  continue 

30  continue 

Card  7:  3F10.5 

A = lattice  constant 

EEXC  = -tf- W 

ex 

EINF  = e 
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. X-3.  LIST  OF  PROGRAMS 

Id:  J APR  Ob#  ' 7e>  ii  ■ 3L7-H  1 

! JCIO  rtL^cf7i^i  j \ Z a i 

Li b I Lg 


! RLL 

copy  Te  k pl-"'  1 1 ’■  i 

L 1 'PROVED  f ilC  POLARON  PROGRAM  OF  A 8 KUh2 

L * R 1 T T t N FEb^1  m f t 1 ® 7 ^ Pfl  WT  RA  N IV 

I ruJbT  MAV  = l»ij  «i- m^'b  fF  VIRTUAL  HR  OCCUPIED  AND  b V|UST  Lit  BELdw  P 

G 0 <LY  Is  Al'.v/Rr  IP  PFP  SET  OF  eCC  0R  V I RL  LEVELS 

CofihflN  AlP  1 1 I I 1 b ) a DEL  I » ) a KX  ( g.j  ) a K Y I 20  ) / Kl  1 g i i S laN  I 

i 2 J 1 1 CHEF  ( 2 i '<  , <*  l a 1 I ? »A)iZ£TA(S)/AJl5>»ZJ(S)»VP(i*liVH(2i‘H<ZLAB 
cl2,j)»PsTl2#lt-t  li^l  IF)  tjiNTlDlibAT  (48#3j3);VF(Vi2'jljiVU7ll3BV0li 
J*n|i>i»)j  IML  if  ><  3l  > intiipl*  I 

rEal***  «.  a > *.  v , v ? , '■u" 

I T £ d f R S G N a a j 

* FORMAT  IP  Ig) 

2 F OKB AT  I Kfl . ,t | 

J r-  d RM  A T |?  * A i 

< m CRM  A T ||fl)f  l ••  I 

* 'ifb*3< 1 kZ  * * a F 6 • 3 a 1 
» 1 R . ' A F l . . J A 1 EV  ' aF IQ. 3 

HA'  hV  'l 

J r-  0 r“-  A T I |n  i 'I  1 1 Cl  k,‘  » HA  iL  KX  * ' a F 6 • 3 a ' KY  « 'A^b*  ja  'xZ  " 1 aF6*3a 

j'  Band  n J--  HE-  SELF  ENERGY  ’aFIQ.3,'  RY  ’aFIg.Sa1  EV  'aFIO 

2*Ja'  ht  'I 

a EdHraf  lip  #'  Tpc  .“'Vial  E'fU'I 
I NPj  T I i V" 

Call  CHC.KF  T I ' !•  >-1  " ' * T TV  1 ) 
lHVCUil  vf  I I Ab  laTrVCI  1a3)*1«0 

IpVC(2».I--1  • ;'-.rl/A?l«TRVCl2A3l»l-l; 

1 R VC  < 3 a 1 1-TGvC  i 3 a -?  I a 1 i . J TR  VC  ( 3a  2 ( »“1  • 0 
T K V c l A » 1 ) = ThVC  I'Ar  l = J . ;THVCIAa3)*“1  • 0 

lavCt^Ai  i = l- ve.  ic  ft  i=»i  « I,. ; Tkv  C i Sa  3 ) » 1 * 

T k V C 1 6 a 1 I « 1 p v C |aajI»*1»UJTRVCI6a2I*1iu 
I K VC ( 7 A 1 I « 1 • il.  aCI7.?>*TRVC(7a3)*-1*0 

1 * y c 1 3 A 1 l ■ T a V I l-A?l«rMC(HA3l«-l'C 

InvCiHa  1 1-2.  ,YRVC(qa?)*TRVCI9a3)*''*0 
IRvC<1  aI>*TpvCi1  a ) * . , ; TRVC  I 10a  2 i *2  • 0 
IxvClliAnsi-^fii.Ait*  • ; TR  VC  l 1 1 a 3 i »?  »o 
T v C 1 1 £ a i > = - . ;lPvru?A?l*TRvCll2A3l»'A< 

1 R v C I 13a  I 1*1  • v L I . )i3  I*  i • ; rwvC(l3A2>*"2.0 

1 R V c I 1 A A I I » T Cl  I •»  A p I » '•  » ;TRVCI|Aa3)*-2»  i 

1RvCI1SaJI=1*v(  i i a a 7 i » TR  vC  U 7a  3 I “TYV  Cl  IHa  3 i «TR  vC.  1 !9a2I“TKVCI20a2I" 
aIkvC(2ia2I*1-,C  i c r a ? i«TFyCI23a1  > *TkVC I 2a  a 1 i* Tki C ' bbA 1 I *T«VC I 2b  a 1 I* 

G I « G 

la  VC  ( 1 B a 1 I *1  .-V  C i I * i 1 i*TPVC(16a2I*TWvC(  1 7 a 1 I * TR  vC  I 19a1)*TRVC(  19a3I" 
ilRVC(2GAtl*T-.Ci2lA-5)*TRvC(23A2l»TkvC(23A3i«TRVCUAA3)*TRVC(2bA2)» 

22«  .■ __ 

NvCIIoa ! i=l.  , Ci1/,?i=TFVC(18a1i*TRVC(18a2)«TRvCI2  a3)*TRvC(21a1I* 
iThVC122All*l-vCiR2Abi«TWVC(2,*A2l*TRvC(25A3i*rwvCl26A2)*lRVC(2eA3)* 

2*2.0 

00  2 9 I * 1 a •»  a 

C3  H t A J 1a  1 U'Al I i a.  »►  I A J«1 A 31 AX*l a3 I 

KtAU  3a  ZlIH 

print  i a Zl  «b 

REAL  IiyIKHa  El  A i.“CCa  IFJANO 
Rrty » *3  • IjivhAi  t 
fi*g  • Ob  ?b 
ud  3“  1*1  a 1M 

R( I ) •£*» I RaC i / > • 17? 


3 FORMAT  I 1*a6aa7FH.cI 

o F CrM  AT  |Ip  a 1 . >•<  t BAM  KX  * 1 a F b * 3 a ' KY 

i OAnP  N J M 3 E * 1 a 1 g a / a 1 SELF  ENERGY  * a F 1 0 • 


Rriga  RHJ*  M 
00  3<*  J*l,N0*h 

PS  I l Jt  I ) *0  . Q 

oo~ Jo  i»i/NOKe 

RE  AD  5,nC0EF,vP(  DiVMI  l / I ) > VHI  2/  I j 
03  31  Jal/MCpfcF 


READ  5/ AJl  J)  ,2FTA(  J)  ,lT(  J) 

Z J ( J ) a ( (2«*ZETA(J>  >**(2*AJIJ)*3i/FACT<2*AJ|j)+2)  J * * ( 1 • /2  • ) 
00  32  Ja1,lfc 


00  32  K*l,NCcfcF 

PS  I < I*  J I apsi  ( l,J)*MT(K  1*2 J (K  )*<P(J)**(AJ(K  )♦  1 ) )*£XP(-ZETA(K)*R(U)) 
SUMaQ • 0 


00  33J-1.160 

SUMaSUlT  + 0«5*<hlu*l  l*(PSI<I*JI**2+PSI<I»J*l  1**2  ) 

00  30  JaljUi 

PSIlI/J)aPSl(l,jl/SQIvT(SU3) 

CALL  PTS  ( KX)  KY  , f 2#  <iGN»  KTPT  I 

READ  2< AaECxl.E INF  


P I “3 • 1 A 1 5926 
PRF«2 • *P I / A 

03  3b  lai/KTrT 


VF(JiI)aVFIj,]  )*'j.A*|k|KMI"RIK)  l*IPSIIJ»KI»PS!(J»M*SIMXK*HIKI  1/ 
1 t XK*R I K ) l*PSl(J,K+1  ) **2*SIN( XK  *h ( K ♦ 1 ) I / < XK  *R  ( K ♦ 1 ) I I 
CONTINUE 


00  37  I*T,kT0T 
IS*I S+SG  Hit 


V0L-FL0ATI  IS  I*  .2b*A*A*A 

PREF“l2»*PI*ttXC/VPL*(l»“l,/ElNF))**ll*/2»l*SQRTi2«..t) 
00  38  I»1,KT>7 


XKa*.  X ( I I **  2*  K Y | I I * *?  + k Z t I ) **2 
XKaPRF*S'JRT  1 *r  ) 

00  38  JaljM’-r. 


IF  ( I • EO  • 1 ) Vf-l»j*I)*‘J*uJG0  TO  38 
VF l J»  I )»PRtF / X * » vF  ( J,  I ) 

C0  NT INuE 


u0  39  I«1.xNP»-b 
VF l I , 1 ) *PRtF *A 

ORBITALS  AW  Friu-IPO  COEFICIENTS  SET  OBTAIN  SChEm0F  MATRIX 


00 

4U 

I*  1 1 *Th  1 

uo 

4 1 

J“  1 # K1 

ALP  ( J ) »U  • U 

PET  ALP 
ISTR-U 
i t NO  *0 


u0  TO  60 
CONTINUE 
TYPE  IS  S 


JO -I STR+1 
i P w V S» IPRv  6*  j 
I S T k * J j*  !PfV‘ 


ALPIJJ)aVPIU|«LlVn|l,J)/RXII)iKY|I),KZ(II) 
00  TO  *3 
COnT I nuE 


TYPE  IS  P 
Jl"ISTR*l 
J2  aISTx*2*lP*vS 


o H 


c-t  i/l'ib  (0*!-j|s>i  r-  i JT  . I 
UJ  <♦  <+  K * . / . b 

l 1*1  1*1 

F ( I # . i • v ♦ i » j t f i sf, ; • (II) 
c) \ f In  Jc 


L J^LVt  *■'  :1  •<  t y «r  E a l ^ 3A«U  F [ aCh  HOiM  In  k - S p A C E 


DO  91  Il-It), If 
NN-N-I  tj  A S 
LL»I !• 1BAS 

*i 

Aii  ikK)  ll  i -cetf  i k 

jO  TO  1 <N 

CONT  1 Nut 

/!.»  T I) 

C 

PEREORrt  R 0 T A 7 ION 
If  l I H • I E • t u * i 
if  ( IF  -I  B . t'«  • r 1 

If  NEEDED 
1/0  TO  9? 

uo  to  93 

C 

92 

uB  TO  9 A 
CONTINUE 
On(_Y  S OANU 

9 3 

A|1(  1/1  1-COEE  ( f , IcaS+1,  IHAb  + 1 1 
90  T 0 1 . 

Continue 

C 

only  p 9 an  u 

UO  95  11=1/0 

130  9b  12=1/9 

a 0(11/12)=  • 
u d 9b  I 9 = 1/  3 
Art  ( I 1/  12  l = AI*  Uj, 

I2)  + EL0aT(MAT(L/  11/131  )*C0EE(K/Ic+1BAS/I3+IBAS| 

*3 

CO'xlT  INUE 
uO  TO  Ido 
COnT  IMjE 

C 

b P 9 a NO 
A f . (1/1  1 = C 0 t f ( K # * 
UO  9 7 I 1=2/  + 

♦iRi  1 ♦ I B AS  ) 

00  9/  12  = <?/A 

All  ( 1 1,  12  1 = . 

Ud  97  I3=?/A 

97 

AH  ( 1 1 J 12  )*  Af*  ( 1 } , 

I c 1+El R A T ( OAT ( L/ 11-1/ I 3“  1 1 i*CPfE (K/ 12+lbAb/ 13+IBAb 

Afl  ( 1 / 2 I -Art  ( 1 , o ) = 

Ml  . ( 1 , a 1 « Art  ( A / 1 ) ■ Art  l 3 / 1 1 « AM  ( 2/  1 1=  • 

C 

10 

all  werATiONs.  l 
continue 

i/fl  7+  s>*  T P / I f 

t rpNfc 

19-19+ 1 
Mlrtl  IS  > « • 

Lit*  1 ')  1 N = I 19  » jl 

iL-1 

7 . 

Nun ( IS  ) = lUfi l 1 b i + 
llUM  1 I b I » .INI  lb)» 
lOnT InjE 

Vf-  ( TBaM)  *N  )/NN  )*C.OtF  ( I/J/N  )#Ahil-'*lbAbiN"IbAS  ) 
. l*  •'«  ( 1 S ) * * T G 

L 

/ / 
/l 

CO-mT  iN.jb 
LOnT iNofc 
**•  t C *^\*  jcT  bt  i f* 

t.  * • F U fj  V 

A F 1 J*  j[  • N CC)  i** 
L Jp  Tr*  ( I r i 
i%  r bM«(]  i»m 

T f*  3 ‘ ; 0 

# sn F 6 # SE  1 » §t  a>  I / J / fc.E  XC/  NhN',  i " T rl  , t / 1 D#  aF  ) 
•i  If-'ZlI  J/J*$ElFc.jSE1jSE2 

io 

90  TO  +o 
COnT  I Ni/E 
L A w ^ LJPIvti'o/  . 

■/cfu  FE/SFl^SES/I/J/tEXC^Nb^j/^T’  ' jt  / Ium^  ) 

*»  0 
/ 1 

p+  InT  / / < X ( l 1 , r t 
CO  .T INUE 

cC ^ T IN jf 

(I  1 / K 2 ( I l/J/SECEE/SE  1/9E2 

/U 

CjNT  IN  jE 

In r a 
wm  i * i r 

t *1/ 

«N  t?b  r 1 L u-  1 * 

i J 

i i c 7 m/SElFe#SE1#SEc#  II  » J J # t E xC#^t>NU#xTcT/E#Ib/  1^ 

Ul  .£  «S  1*  * 
H t A l u *i 

/ t IP  /A  I 
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OCCURIEO  LEVEL  POSITIVE  SELF  ENERGY 

OELT A-O.Ol 

ESTR-O.Ql 

FOFEN--ESTR 

IC«0 

UO  201  I-l/Kl.-T 

08  201  j»l  jtg 

iJe  201  K ■ I B . IF  - - - ' 

1C-IC+I 

2vl  FOFEN-FBFEN+  t m 1 C ) / ( E ST R + E I 1 1 1 J U I -E ( 1 1 K ) ♦ EE XC I 
00  202  1*1/?! 

FBFE0*F8FEN 
t$TR«ESTR  + CEt_T  u 
c 8F£n«-ESTF 
I C «0 

OB  203  J°l<KToT 

uo  203  k»1j 4* 

08  203  L = I bi  IF 

1L»IC+1 

FBFE  T»r  dFE.j  + M.M  i IC  )/  ( FSTR+E  ( I It  JJ)  -E  ( 0/L  l+EEXC  ) 

IF  ( FeFE  ./FPFf t . L£ .0.0  ) SE LF E»ES T R ; G 0 Tfi  204 
20-~.  CBinTInuE 
2o**  So  1 « 1 3 • b*ScL  i- F 
S22*SElFE/2. 

R E T U R in 

t'Nj 

30  BR  Ou  II  it  LjFTv  ( 1 Si  NURi  SELF  Ei  SEli  SE2i  X I iJJi  EEXCiNBNUi  kT  OT  / Ei  IBi  IF 

x) 

0 1 ME  NS  1 8 M nu«( 1 > /E  I 20# 4 ) 

REaL  NOR 

L YlRTOAo  levEl  itQATTVE  SELF  ENERGY 

uElT  A«« t 01 

E3TR--.01 

F8FE'n*-E37F 

rcro 

00  301  I »i , n T - T 

00  301  J*li4<- 
Ufl  3ol  K * I IF 

il«ic+ ; 

3ol  FBPt  g.rijH  - ! 1C  ) / I F STRfE  1 I I io  j ) -E  1 I >K  I -EE  XL  ) 

OB  302  I * 1 i 2 
F OFEO«F  QF£n 

tSTR^EjTR-FOtLT  a 

FOFE  n«-E  S r R 

1 L«0 

op  303  J » 1 / k I - T 

00  303  K»1 ins 
OO  303  L * ! «/  1 F 

K*11M 

JuJ  ?0F£  J«FeFh  ♦ . ~iJC)/tESTR+E(IliJJ)-£(JiLI-EEXCI 
IF  ( FPFE'N/FrFf  .Lt  .r,.  ) SELFE-ESTR JGO  TO  304 

JUa  CBnT  jNuF 

Ju4  SE l » 1 3 • 6 »StL F t 
SE2»SElF£/2. 

R t T o R n 
tCNL) 


SUBROUTINE  RTS  I F <1  * Y , K Z# SONj  I I ) 11/ 
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Electronic  structure  and  optical  properties  of  metallic  calcium* 

Daniel  J Mickish/  \ Barrv  Kunz.  ami  Sokrates  I PanleluJes* 

Department  >1  Physics  and  Materials  Research  l.aboratory.  University  of  Illinois  at  Urhana-Champaign  L'rbana.  UUn  >iv  bIH1 

(Received  15  October  1973) 

Self-consistent  Hartree-Fock  orbitals  of  calcium  atoms  in  a crystalline  environment  were  used  in 
conjunction  with  the  localized  linear-combination-of-atomic-orbiial  method  to  obtain  one-electron  bands 
for  metallic  calcium  Correlation  corrections  are  made  by  means  of  Overhauser's  simplified  method  The 
metal  to-semimetal  to  metal  electronic  transitions  with  increasing  pressure  are  predicted  to  occur  at 
smaller  lattice  spacings  than  predicted  by  calculations  employing  local  exchange  A rigorous  calculation 
ot  the  imaginary  part  of  complex  dielectric  function,  made  within  the  dipole  and  one-electron 
approximation  predicts  correctly  the  general  shape  and  width  of  the  Is -valence  emission  spectra  and 
the  important  structures  superimposed  on  the  broad  Is -conduction  absorption  spectra  There  is  good 
agieement  with  the  specific  heat  data,  but  the  details  of  the  Fermi  surface  as  described  by  de  Haas  van 
Alphen  data  have  remained  elusive— large  percentage  errors  occur  when  the  predicted  areas  are  „ 
compared  with  the  experimental  results  The  de  Haas  van  Alphen  orbit  areas  are  extremely  sensitive  to 


the  accuracy  of  the  calculations  due  to  the  flatness 
I INTRODUCTION 

Th«*  purpose  of  this  paper  is  to  present  rigorous 
Hartree-Fock  energy  bands  for  a real  metal.  The 
metal  calcium  has  been  chosen  m order  to  exploit 
its  atomic  closed-shell  properties  and  to  use  its 
metal  to  semimetal  electronic  transition  properties 
observed  under  increasing  pressure  as  a test  of 
the  accuracy  of  Hartree-  Fock  bands.  Additional 
tests  are  made  using  available  optical  and  de  Haas- 
van  Alphen  data. 

Nearly  all  calculations  to  date  made  on  metals 
have  approximated  the  true  Hartree-Fock  nonlocal 
exchange  through  the  use  ot  the  formalism  of 
Hohenberg,  Kohn,  and  Sham.1,2  Their  work  estab- 
lishes the  existence  of  a universal  functional  of 
the  local  density  of  an  Interacting  electron  gas 
which  is  capable  of  providing  the  correlated 
ground  state  energy  of  the  system,  provided  that 
the  ground  state  is  nondegenerate.  Gilbert3  has 
recently  shown  that  if  the  external  potential  is 
nonlocal  then  the  energy  is  a unique  functional  of 
the  density  operator,  not  the  local  density.  This 
is  a severe  restriction  since  it  complicates  the 
use  of  local  exchange  potentials  m real  crystals  as 
a means  of  obtaining  arbitrarily  accurate  solutions 
II  (nonlocal)  ion- core  external  potentials  are  used, 
then  local  exchange  potentials  are  incapable  of  de- 
scribing the  t rue  exchange  If,  however,  (local) 
nuclear  external  potentials  are  used,  then  the  ex- 
change potentials  proportional  to  the  local  density 
to  the  one-third  power " 4 ' are  not  accurate  since 
they  require  that  the  external  potential  be  slowly 
varying. 

In  order  to  achieve  * higher  degree  of  accuracy 
in  calculations  of  the  electronic  structure  of  solids 
one  is  faced  with  two  known  * ho  tees  The  first 
choice  involves  the  ret  lining  of  the  Hohenberg- 
Kohn*  theorem  and  the  .search  for  a universal  func  - 

10 

1 33 


the  bands  near  the  Fermi  level 

tional  of  the  electron  density  which  is  far  from 
slowly  varying.  There  is  no  way  of  determining 
this  functional,  a prion,  other  than  by  using  a 
functional  expansion  starting  from  the  approximate 
expression  valid  lor  a homogeneous  electron  gas 
at  high  densities.  The  expansion  must  be  capable 
of  describing  the  effects  T the  singular  c tulomb 
potentials  which  occur  m real  materials  The 
second  choice  involves  tht  use  of  the  well-xu  >wn 
fund  lonal 

h i)  <Uo 

and  systematic  approximation?,  m the  apphcati  a 
of  this  functional.  Although  at  firs'  thought  this 
approach  may  lead  to  elaborate  and  tedious  v.ih  i.- 
lations,  we  have  found  that  through  the  use  -t  pow- 
erful mathematical  transf  mirations  such  as  th  s* 
that  exist  in  local  orbitals  the  i > 4 and  tin  ••Hi 

cient  use  of  the  random  - access  capabilities  ! 
modern  computers,  the  second  chon  e t attack  is 
fully  competitive  with  tht  first  in  terms  ! . im- 
putation time 

The  results  presented  in  this  papei  were  >b 
tamed  bv  tirst  making  a one-elect  roe.  appi  .situa- 
tion to  £{</  ] and  minimizing  tin  energy  leading  0 
sell  - consistent  Harm*  F *ck  B1  •*  h eigenluncti  ns 
and  energies.  Several  groups  fiavt  devel  ped 
mathematical  and  computational  t»  v ; -ruqi.es  which 
allow  rather  accurate  determination  f the  Hartio* 
Fock  hands  fur  a variety  <1  cr  ystals  I In  agret 
meat  among  the  various  Hartree- fock  baud;  >b 
taint'd  by  the  different  it  chniques  is  vei  go  >U  in 
spite  't  the  use  *»  appi  vouat.  ns  such  as  muffin 
tin  potentials  in  some  ‘ ases  and  t‘o  uid*  h\«t  * t \ 
of  basis  functions  employed  1 ( i tallm*  Harrio  t 

F oc’k  Bloch  functions  mas  be  us*  • ! a*  - i ide! 
wav*  function*,  t i<  iratcls  cab  ala!*'  th*  • .rr*  i.* 
tion  energy  .is  m K i . s'4  method  based  -n  T \ 
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TABLE  l.  Exponents  and  coefficients  of  Slate i-type  basts  functions  tsTo’si  used  to  construct 
sell-consistent  Hart  ree- Foe  k local  orbitals  for  the  equilibrium  lattice  ji.tiji  t’oeflu  n 

u>  l>e  used  for  “virtual”  orbitals  are  indicated  l>>  an  asterisk. 
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0.0 

1.0 

zawa’s24  electronic  polaron.  Semiclassical  meth- 
ods for  determining  the  correlation  corrections 
can  also  be  implemented  in  the  case  of  insulators. 
These  include  the*  Mott- Littleton2*  method  and  the 
screened- exchange -pi  us- Coulomb- hole  method.26 
The  resulting  correlated  bands  closely  match  ex- 
periment for  the  cases  which  they  have  been  calcu- 
lated.16,26 In  the  case  of  metals,  a simplified  theo- 
ry of  elect nm  correlation  by  Lundquist  and  Over- 
hauser27'28  may  be  used  to  correct  the  Hartree- 
Fock  bands.  Of  course,  the  inclusion  of  correla- 
tion corrections  via  the  well-known  techniques  of 
multiconfiguration  self-consistent-field29  or  con- 
figuration interaction30  is  a definite  possibility, 
although  no  such  calculation  has  been  performed 
on  a crystalline  material.  It  is  interesting  to  note 
that  the  only  approximation  to  the  exchange  opera- 
tor that  does  give  eigenvalues  close  to  the  Hurtree 
Fork  values  is  Liberman’s31,3"  energy-dependent 
excitation  Hamiltonian 

II  CALCULATION 

\ ( ih.iI  orhifals  Hltii  li  oiiit'iif iiiulKiits  .i mi  bands 

The  local  orbitals  equation'  9,11  used  in  this  pa- 
per 

(F, i • r„  - pr4p)  < j,  1 1 1 

134 


has  been  evaluated  self -consistently  to  first  order 
m overlap  as  indicated  by  Kunz  13  The  operator 
Fa  is  that  part  of  the  Hartree- Foek  operator  which 
involves  only  center  -/  and  l'a  is  simply  the  remain- 
der, which  can  be  considered  as  the  potenti.il  held 
produced  by  the  environment 

The  appropriateness  >f  retaining  terms  to  ml> 
first  order  in  overlap  has  been  rigorously  studied 
m a recent  work  by  Kunz. 33  It  was  found  that  the 
approximation  was  justified  even  in  some  v -valent- 
ly  bonded  systems  and.  therefore,  \n  beli«  v*  that 
it  is  certainly  justified  in  the  present  case  -I  t h* 
calcium  system 

Basis  functions  used  for  the  detet  mutation  d 
local  orbitals  for  ilcium  wer*  ibtained  from  an 
earlier  very  accurate  calculation  >t  tin  at  an  '4 
Tht*  atomic  eigenfunctions  wen  used  t In  gm  flu 
iteration  process  Tht  local  orbitals  an  giu  : in 
Table  ] Also  appearing  in  tht  table  are  I lx  .nidi 
tional  orbitals  which  wer*  included  t allow  d« 
scription  of  the  unoccupied  t • induction  band  lev*  Is 
The  equilibrium  lattice  constant  >i  was  taken  as 
10.  54  bohr  (5.  58  A ) 

The  last  iteration  in  the  search  f * • i •■*  11  t -mm-- 
tent  v involved  the  determination  *»f  HI  •«  h ng*  n- 
functions  rather  than  a new  *»et  .|  1.  t.»l  • rbitaK 
flu  Bl  1 i ted  of  lineal  tuna) 
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of  .si'll- consistent  local  orbitals  ami  compact  Sla- 
tcr-typc  orbitals  (STO's).  This  method  can  be 
considered  a complete  generalization  of  the  linea1 
combmation-of-atomic-orbitals  (LCAO)  meth- 
od. There  are  two  significant  advantages 

to  using  the  LCAO  method.  First,  the  local  or- 
bitals completely  span  the  occupied  liartree- Fock 
space  .assuming  no  approximations  were  invoked) 
and  so  basis  functions  built  as  Bloch  sums  of  the 
local  orbitals  will  also  span  that  space.  Second, 
the  resulting  integrals  over  local  orbitals  ari  in- 
dependent of  the  crystal  momentum  k.  Once  the 
integrals  are  determined  for  diagonalizing  F Fa 
• V , at  any  one  point  in  the  Bnllouin  zone,  the 
same  integrals  can  be  used  with  only  a change  in 
multiplying  phase  factors  to  diagonalize  F at  any 
other  puint.  This  method  has  proved  to  be  the 
most  economical,  since  evaluation  of  the  bands  is 
required  at  a large  number  of  points  in  the  Bril- 
louin  zone  in  order  to  make  adequate  comparisons 
with  experimental  optical  and  de  Haas -van  Alphen 
data 

There  are  some  interesting  concepts  involved 
in  going  from  the  closed- shell  calcium  atom  to 
the  "open-shell  ' calcium  metal  when  using  the  lo- 
cal orbitals  and  LCAO  techniques.  We  wish  to 
Hrst  point  out  that  the  local  orbitals  equation  [Eq. 
ml  possesses  the  point  group  symmetry  of  the 
crystal  t<l,  in  the  present  case)  and  therefore  the 
eigenfunctions  10,1)  will  transform  according  to 
the  irreducible  representation  of  that  point  group 
The  self-consistent  density  matrix  is  determined 
by  an  expression  constructed  of  local  orbitals 
ILOI 

t.H 

This  form  of  the  density  matrix  is  completely 
equivalent"*  to  the  canonical  Hartree-  Fock  matnx 

,i(r.  f'l  , (31 

where  the  . ‘s  are  eigenfunctions  of  the  Hartree- 
h »ck  operator  There  does  exist  a somewhat 
pathological  case  where  the  restricted  Hartree- 
Fock  approximation  fails  to  be  adequate,  causing 
the  breakdown  of  the  equivalence  of  Eqs.  (2)  and 
(3).  This  occurs  when  the*  free  atomic  system  can 
b«-  described  as  closed  shell  but  the  fragment  here 
the1  atom  in  a crystal  field)  cannot  be  described  as 
a set  of  closed-shell  local  orbitals  In  the  case  of 
calcium  this  situation  would  manifest  itself  by  an 
apparent  crossing  >f  the  free  atomic-local  orbital 
energy  levels.  The  atomic  3*/  level,  for  example, 
could  split  into  r 2 and  T levels  with  the  T y 
crossing  the  4-  T level  such  that  it  would  lie  be 
low  the  T level  When  the  local  orbitals  are  filled 
according  to  the  energy  criteria,  the  last  tw  4 


electrons  would  assigned  to  the  lower  T . de- 
generate level  instead  t the  jsual  T level  giving 
rise  t > an  open  shell  and  not  treatable  by  means  ol 
restricted  Hartree- Foi  k Alt h ugh  w«  han  n >t 
explicitly  t arried  out  an  open-shell  h cal-  rbitals 
calculation  on  calcium,  we  believe  mat  the  v«  ry 
largt  '125  Ry)  energy  difft  re:  vc  between  I'  and 
T ...  obtained  from  the  equilibrium  bands  I .g  1 
supports  the  assumption  that  the  1 cal  rbitals  It  v- 
el  r2y  does  not  lie  below  T and  that  tht  local-  r- 
bital  system  is  therefore  closed. 

Second,  we  wish  t point  out  that  in  the  present 
case  the  environment  used  in  the  l-wal  • rbitals 
Eq.  (1)  is  approximated  by  the  first  t<  rm  i its 
expansion  in  cubic  harmonics  Tht  first  term 
possesses  spherical  symmetry  the  set  ond  Y* 
symmetry)  and  sc-  the  solutions  to  tht  local--  rbit- 
als equation  transform  according  t<  th<  irredut  - 
lble  representations  of  the  thre«  limensional  rota- 
tion group  The  density  matrix  is  n w constructed 
of  local  orbitals  tt  which  hav»  ily  pure  > and 
pure  p symmetry  We  now  indicatt  !■•  what  degree 
this  “spherical  approximation  to  l , causes  Eq 
•2)  to  difler  from  Eq  3-  Of  special  i mu-m  is 
the  realization  that  some  states  having  /-like  r 
higher  symmetry  must  be  occupied  -or  ■ • •*!«  4- 
and  3 •!  >r  higher  atomic  it  vt  Is  must  merge  t 1 11- 
tain  metallic  behavior  in  the  crystal  The  states 
near  tht  Fermi  level  '-.g  . \ L £ W K , 
however,  possess  va  ry  little  t like  i higher 
symmetries  being  composed  "f  mostly  - and  /»- 
like  symmetry  A qualitative  mcasurt  ! the  num- 
ber of  -/-like  >r  higher  states  making  up  the  »ccu- 
pied  orbitals  can  b»  determined  by  tht  dcgrt*e  t 
which  bands  from  th<  set  >nd  Brill  um  zone  lit 
below  the  Fernu  level  As  seen  in  Fig  1.  there 
are  few  states  lrom  the  second  * ne  ly in  : below 
tht  Fermi  level 

We  therefore  maintain  that  ait!.  >ugh  , , r,  r' 
only  approximates  o,r  f’  due  ? -he  spht  rical  ap- 
proximation! t tv  extn 

good.  In  addition,  the  last  operati  »n  1 determining 
the  Bloch  eigenfuin’i  ns  fr  m . f r tit*, 
tively  a final  Herat i -n  t w ard  si  :t  t . nsistem  \ 
without  spherical  syminetn/ation  ■ : r , Any  re- 
sulting . s partially  < 'ntaining  B)  . n sums  f </- 
like  STO  s an  p«  rnuttt  <1  t be  . um»  i it  t ner- 
getieally  favorable  A-  a c msequentt  bands  de- 
scribing metallic  behavior  are  found  set  Fig  1 
rt  rij  1 Oi 

Two  technical  p .nts  an  .t  ider  1 xp  uunts 
t the  STO's  ust  d t i i.stnu  i th«  nlditn  al  B!  ch 
basis  t r dest  ripti  n *1  the  conduction  bands  wer« 
chosen  such  that  the  contribute  ti  to  an\  overlap 
matrix  element  • v»  r Bloi  h rbitals  -i  n t the  m 
i lusion  of  the  sixth  shell  nf  atoms  was  l<  ss  than 

0 001  Numerical  • valuation  "t  the  ylebsch  l.  a 

1 in  coeffici*  nts  in*  urred  was  performed  to  high 


* J 
f 
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KK1.  3.  Exchange  energy  £,  and  correlation  energy  Ec 
aod  their  sum  for  an  electron  gas  with  density  of  calcium 
ami  effective  man  in*  - 0.533m. 


with  > <l  2A>.  G'U)  iVlD.  yui  CM*)  >2,  C 
me~  *h2kr.  and 

/(t)  ‘ • |ll  -*2)  4v]ln  tl  x)  (1  - « . . (9) 

The  limiting  behavior  of  g(» ) is  determined  by 
means  of  arguments  involving  compressibility  re- 
lations (for  v- 0)  and  pair  correlation  functions 
(for  i -*>).  The  behavior  at  intermediate  x was 
determined  by  requiring  the  subsequently  deter- 
mined correlation  energy  to  duplicate  that  calcu- 
lated by  a previous  paper  ,0  The  function  adopted 
forg(.i)  is 

#(*)  1.1  (1  . 10«2.  1.  5.i V/2  (10) 


The  equations  reviewed  so  lar  have  described 
the  interaction  of  a fixed  test  charge  with  the  plas- 
mons.  These  equations  are  then  extended  to  in- 
clude the  exchange  and  correlation  potential  asso- 
ciated with  an  electron.  The  extension  simply  re- 
quires that  the  interaction  coefficient  be  replaced 
by 

.1/'  A/,|  1 -(id)]  . (11) 


Using  second-order  perturbation  theory,  the  one- 
electron  correlation  energy  £t(k)  is  determined  by 
taking  the  difference  between  the  total  system  in- 
teract ion  energy  with  k ) occupied  and  with  ii 

empty: 


/•:,(£>  Ed*) 


L 


t/g.-Cbr)!* 
£({t) - iS  - q)  - He, 


- £ 
i k.  a • <*r 


A/^l -(.(»)]* 

F.&  ■ qi-  E(Tl-  He, 


(12) 


The  one-electron  energy  E)lr)  fur  an  interacting 
electron  gas  is  the  sum  of  the  three  contributions 

I- (h)  «2  2 #«.£,(*).£,(*).  (13l 

where  the  exchange  energy  F ,(k)  has  the  usual 


form 

£,(k)  E,(tl  - (2c2e,  r)^i  I , 14 1 

with  t (_y)  given  by  Eq  .91  and  i k kr 

Overhauser  shows  that  the  infinite  slope  at  If 
Iff  appearing  in  E.tfc)  is  exactly  canceled  by  a 
similar  property  in  £,(£).  In  addition,  he  shows 
that  the  sum  of  these  two  terms  is  essentially  con- 
stant for  all  values  of  If,  and  that  E c\b  ) is  relative- 
ly small  when  lf*kr.  This  implies  that  a Hartree- 
Fock  calculation  which  treats  the  point-charge  lat- 
tice correctly  will  give  substantially  correct  one- 
electron  energies  for  k*kF,  since  the  correlation 
corrections  are  minimal  there  The  most  severe 
drawback  of  using  this  model  to  include  correla- 
tion corrections  to  the  bands  is  its  ^-direction  in- 
dependence. 

Correlation  corrections  made  to  the  a a 0 10 
Hartree-Focg  bands  are  indicated  graphically  in 
Fig.  2 by  the  curve  marked  Ec  Alsu  included  in 
Fig.  2 are  curves  for  the  free-elcctron  exchange 
£,  and  the  sum  of  these  two  curves.  These  curves 
are  analogous  to  thuse  appearing  in  Eig  2 ol  Rel 
28,  but  modified  for  calcium  with  an  equivalent- 
sphere  radius  rs  3 27  and  effective  mass  nim 
0.  533*« . The  effective  mass  was  determined  by 
forcing  the  valence  band  width  of  the  tree-electron 
bands  (including  exchange  i to  match  the  width  of 
the  Hartree-Fock  bands  The  purpose  in  using 
in*  is  to  include  in  an  elementary  way  the  etfect  f 
the  lattice  in  free-elcctron  bands  and  the  correla- 
tion energy 

The  relationship  between  free-electron  bands 
and  Hartrei  - Fork  bands  on  1 0)  w ith  and  with- 
out correlation  o erections  is  shown  in  Fig  3 In 
panel  A the  frt  • electron  bands  t .r  an  i lectron 
gas  with  the  density  ui  calcium  and  •>  • 0 533»u 
is  shown  In  panel  H the  exchange  energy  E,  of 
Eig  2 has  been  added  to  thi  free-electron  bands, 
and  in  panel  'Cl  t h.  correlation  energy  Fc  of  Fig 
2 has  also  Imn  added  Hartree-  Fork  bands  are 
present!  1 m | unci  .D  . and  in  panel  I tin  corre- 
lation energy  f I ...  2 has  been  added  t<  thi  Har- 
tree- Fock  band:  The  effi  v<  . .•  m*  was 

chosen  to  forci  tin  width  I thi  valenti  band  ol 
panel  13  to  mail  h that  appearing  in  panel  Ii 
Panel  t n m sei.ts  the  si  4 ,< i,  ium  bands  detei 
mined  within  thi  In  . -i  ..  . :r  : appr  \ in.  at  ion  and 
Ovi  rhause i snot'  I i '■  adiro  -r re . .it ion  ef - 
feels  Panel  1 represents  mi  fina  Hartree- 
f ek  bands  i rri  . ted  for  elect i . i ri  fallen 

In  or  del  t deli  rnn  e thi  c an  lalion  i 'friction 

nppropriuti  I r llartni  I a k U n n stall  within 

I rgy  E kMr  a i w . n • i CMr  *.  si  till  . arri 

spending  fret  ell  i ' . 1 plus  e\  e.gi  wall  lector 

magnitude  det«  rr.um  f hi  s.  fving  if*  equation 

' ’ 
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FIG.  3.  The  relationship  tietween  free -electron  bands  and  Hartree-Fock  bands  in  afc  l.Ui  with  and  without  correla- 
tion corrections.  Panel  IAI  free-electron  bands  for  an  electron  gas  with  the  density-  of  cab  uni  and  m*  - U.533»j. 

Panel  (1)1  free  electron  bands  with  exchange  energy  E,.  Panel  (Cl  free-electron  bands  with  exchange-correlation  en- 
ergy £,  I Ec.  Panel  (Di  Hartree-Iock  bands.  Panel  IE)  Hartree-Fock  bands  with  correlation  energy  Ec. 


for  k.  The  correlation  correction  Ec(fc)  is  calcu- 
lated for  this  k and  added  to  FA i£Hr).  The  correla- 
tion corrected  bands  for  lattice  spacings  a ( a n0 
1.  0,  0.  9.  and  0.  8)  are  presented  in  Fig.  4. 

In  Fig.  5 we  present  for  comparison,  using  the 
same  scale,  augmented-plane-wave  (APW)  bands 
for  the  equilibrium  lattice  spacing  a n0  1.0  ob- 
tained by  McCaffrey,  Anderson,  and  Papaconstan- 
topoulos.41  The  Kohn-Sham2  (a  |)  local  exchange 
was  used.  The  band  energies  (Ry)  at  points  of 
high  symmetry  for  calcium  for  a n0  1.0  are  listed 
in  Table  II.  Three  cases  are  included  Hartree- 
Fock,  Hartree-Fock  with  electron  correlation  cor- 
rections, and  APW  with  a local  exchange  approxi- 
mation (a  j)  41 

C Density  of  slates 

The  bands  are  calculated  at  89  uniformly  dis- 
tributed points  k,  within  the  irreducible  wedge  of 
the  Hrillouin  zone.  The  density  of  states  is  calcu- 
lated using  the  Lehmann  and  Taut42  adaption  of  the 
Gilat  and  Raubenheimer41  "linear  analytic"  (LAI 
method.  Instead  of  the  discrete  nature  of  sampling 
that  is  usually  employed  in  other  methods,44  ana- 
lytical or  continuous  integration  is  performed 
throughout  small  tetrahedra  whose  vertices  are 
defined  by  the  points  it,.  The  integration  is  accom- 
plished by  calculating  numerically  the  area  of  a 
constant -energy  plane  surface  that  lies  within  each 
tetrahedron. 

A recent  analysts  of  methods  for  calculating 
spectral  properties  of  solids  has  been  made  by 
Gilat44  who  finds  "Generally,  the  LA  method  is 
In  be  preferred  in  all  cases  where  either  high  res- 
olution and  accuracy  are  desired  or  computational 
speed  is  needed,  or  both. 

We  express  the  density  of  stales  Si F)  in  units 
of  states  Ry"'atom"'  and  have  multiplied  by  2 in 
order  to  take  spin  into  consideration: 


S(E ) 


dS 

fftF.rtOi 


(16) 


where  t e is  the  volume  of  the  Wigner-Seitz  cell. 
One  need  only  integrate  the  density  of  states  of  the 
valence  band  over  energy  until  the  area  equals  2 
(in  the  cas«  of  divalent  materials  such  as  calcium) 
to  find  the  Fermi  level  F F.  Due  to  the  unique- 
manner  of  obtaining  self -consistency,  the  match- 
ing of  hole  states  in  the  first  zone  with  the  elec- 
tron states  in  the  second  zone  is  exact.  The  elec- 
tronic specific  heat  C e > T is  determined  by  the 
density  of  states  at  F F by  means  of  the  equation4* 

y = n2M£,H'2a 


(17) 


r mJ  „ 

Imole- KtJ  ° 


17322,V(F, 


. f states  ~| 

IT  ' 


[ Ry  atom  J 

and  c undue 


(18) 


Densities  of  states  for  the  valence 
turn  bands  of  calcium  in  the  Hartree-Fock  approxi- 
mation for  lattice  spacings  a {a  a0  10,  0 9,  and 
0 8)  are  presented  in  Fig.  6.  The  densities  of 
states  corrected  for  electron  correlation  and  for 
the  same  lattice  spacings  are  presented  in  Fig  7. 
In  Fig.  8 we  reproduce  for  comparison  tin  densit> 
uf  states  derived  from  the  APW- local -exchange 
calculation.41 

I>  Zero  density  of  states  at  Fermi  loci 

There  is  an  interesting  result4*  associated  with 
the  theory  of  a free-electron  gas  which  is  frequent 
ly  referred  to  when  discussing  the  inadequat  ics  of 
the  Hartree-Fmk  apprnximat i«m.  It  js  th«  rapid 
f a 1 1 of f to  zero  of  the  density  of  states  .is  tin  Fermi 
level  is  approached  Zero  density  of  states  im- 
plies zero  specific  heat.  Since  this  is  not  ob- 
served experimentally  the4  conclusion  is  that  tin 
Hartree-  Fork  theory  possesses  set  ions  madequa- 
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TABLE  II.  The  energies  (R\ » at  points  of  high  sym- 
metry for  calcium  for  a/<»0-  l.U.  Also  included  are  tht* 
density  of  suites  at  the  Fermi  surface  S'(Ef)  [states  Ry"1 
atom"1)  and  the  constant  > l tnJ  K’^mole"1)  entering  the 
specilic-hcat  expression.  Column  under  “HF“  gives 
Hartree-Fock  results,  “HF  • b.c”  gives  Marti ee-Fock 
results  corrected  tor  electron  correlation  by  Overhauser’s 
method  and  “Local  Et"  gives  the  results  obtained  from 
an  Al’W  calculation  using  the  Kohn-Sham  local  exchange 
approximation  (Ref.  41). 


HF 

HF  ♦ Ec 

Local  £x 

r, 

-1.6071 

- 1. 2949 

0.0290 

r25 

-0.1223 

-0.  3484 

0. 5590 

r12 

-0.  0131 

-0.  2578 

0.6530 

-0.6133 

-0.6815 

0.2902 

*4 

-0  . 54  69 

— 0.6578 

0.4020 

-0.3728 

-0.5455 

0.  4023 

L'z 

-0.7084 

-0.7106 

0.3068 

Li 

-0.6493 

— 0. 6835 

0. 2643 

f'3 

— 0. 1526 

-0.3742 

0.7220 

W"2 

-0.  5503 

-0.6601 

0.3392 

-0.4786 

-0.6185 

0.3977 

t'l 

-0. 1989 

-0.4114 

0. 5407 

*1 

— 0. 5867 

-0.6761 

0.3265 

K 1 

-0.  5116 

-0.6384 

0.4006 

K 1 

-0.4477 

- 0. 5990 

0.3788 

*4 

-0.0708 

-0.3054 

0.6250 

*> 

- 0.  587 

-0.6750 

0.3250 

N(E, r) 

4.  19 

14.19 

11. 20 

y 

.73 

2.46 

1.94 

cies. 

There  is  a general  argument47  supporting  the 
concept  of  finite  energy  differences  between  adja- 
cent occupied  and  unoccupied  levels  and  conse- 
quently a zero  density  of  states  at  the  Fermi  level. 
It  is  that  an  electron  in  an  occupied  level  is  acted 
upon  by  an  effective  <V  - 1 electron  charge  density, 
whereas  an  electron  in  a virtual  orbital  is  acted 
u|x>n  by  an  S electron  charge  density.  This  occurs 
because  the  exchange  term  in  the  Hartree-Fock 
operator  serves  to  effectively  remove  an  electron 
from  the  total  charge  distribution  acting  on  an 
occupied  state  as  a means  of  preventing  terms  in- 
volving the  self-interaction  from  being  included  in 
the  energy  expression.  Although  the  electronic 
charge  removed  is  )ust  one  in  1023,  is  is  localized 
about  the  electron  in  the  occupied  state  (the  re- 
moved charge  constitutes  a “Fermi  hole”).  The 
degree  of  interaction  of  this  “hole”  with  the  elec- 
tron and  environment  and  consequently  the  local- 


ized nature  of  tht  “hole"  determines  tht  size  1 
the  energy  difference  between  the  occupied  and 
'occupied  levels.  If  the  Fermi  hole  is>  c mpletely 
delocalized,  then  the  energy  of  interaction  would 
simply  be  equal  to  the  energy  different t associated 
with  environments  composed  of  \ and  .V  - 1 elec- 
trons. which  is  of  the  order  of  e2  3 = 10'  eV  for 
il-1  cm3.  The  hole  is  known  to  be  nonspherical 


F K • 4 . Rand  stricture  « t i ale  mm  t.  r various  la  it  it  t 

constant **  n n the  Marti  im  1 ork  appi  ximatn  n « < rrc>  lc  * 
1 « • t electron  correlation  etfet  ts. 
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FIG.  5.  Band  structure 
of  calcium  lor  equilibrium 
lattice  constant  a0  obtained 
by  McCaffrey,  Anderson, 
ami  Papaconstantopoulos 
(Ref.  Ill  using  the  APVV 
method  and  the  Kohn-Sham 
(Q  2/J)  local  exchange 
approximation. 


and  described  by  means  of  a complex  distribution 
function  We  maintain  that  it  is  not  possible,  a 
Priori,  to  determine  the  degree  of  localization  of 
t hi  Fernn  hole  in  a real  crystal  due  to  its  involved 
nature  and,  therefore,  that  it  is  not  justifiable  to 
assume  that  the  density  of  states  will  necessarily 
approach  zero  at  the  Fermi  level  with  a strength 
that  can  be  described  by  any  band-calculation 
method  for  real  crystals  now  in  existence.  Indeed, 
our  calculations  do  not  reveal48  the  tendency  of  the 
density  of  states  to  fall  to  zero  as  the  Fermi  level 
is  approached. 


t joint  density  «>f  states  and  t ; 


We  have  used  the  LA  k-space  integration  as  sug- 
gested by  Lehmann  ami  Taut42  to  evaluate  the  joint 
density  of  states  and  t he  imaginary  part  c , of  the 
complex  dielectric  function.  The  joint  density  of 
states  is  expressed  as 


(19) 

Since  we  are  concerned  only  with  optical  excita- 
tions from  the  flat  lx  band  to  the  conduction  band 
the  juint  density  has  tin-  identical  shape  of  the 
conduction-band  density  of  states. 

The  expression  for  < 2 ,s  due  to  Ehrenrcich  and 
('ohm44  and  is  given  bv 


, , v c to  V 1*  fu(kh/S 

,00  - /((k>|T  ’ 


(20) 


where  the  um  i Hat  or  sir  .*»  ths  .ire  given  by 


with  p (Ji  i)^  The  evaluation  of  the  osi  i . 
strengths  is  approximately  as  time  ronsumim 
the  evaluation  of  the  Hartrec-  Fock  eigenfu1 
The  number  of  matrix  elements  and  r t.»n  • . • 

ficients  is  larger,  since  the  moment  p»  r c r 
is  composed  of  three  parts  .u,d  H; ust  Ik  r i at ed 
along  with  the  spherical  harmenus  w*  1 ■ 
acts.  The  momentum  operator  is  rt  | i.u . j t>v 
corresponding  irreduribU  tenser  ; , » . ■ i t , , ... 

1 in  order  to  maintain  real  matrix  . nu 
Blumc  and  Watson J°  gin  all  n<  i san  . \ j : . 
which  orrur  when  the  tensor  operator  a.  t>  n 
spherical  harm  mirs 

In  order  to  make  a meaningful  interpretati  t 
the  lx-  emission  and  absorption  data  available  t i 
calcium,  we  have  calculated  the  imaginary  part  t 
the  complex  dielectric  constant  . , an  . a dim  t 
Keys.  (201  and  (21V  The  results  are  given  in  Kip 
9 for  the  correlated  bands  at  the  equ  librium  lat- 
tice spai  ing  No  correlalion  corrections  have  In  , ,, 
calculated  for  (lie  inner  electrons  or  the  electmn- 
hnle  interaction.11  However,  the  scale  has  been 
shifted  downward  2«.  li  eV  so  that  the  experimental 
Fermi  level  is  reproduced  at  403T.  ■!  , V |t  should 
lx-  pointed  out  t hat  the  nrig  in.il  Hart rei  K ><  k ■ ip, 
functions  havi  Ixrn  used  in  the  t alculati.n  ,,t  the 
momentum  matrix  elements.  The  only  wav  in 
which  the  correlation  corrections  and  the  slufi  in 
scale  affects  the  evaluation  of  « . is  through  the  i n 
ergy  terms  in  the  divisor  This  approximation  is 
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FIG.  ti.  Density  of  states  of  valence  and  conduction 
bands  derived  from  the  Hartree-Fock  bands. 

quite  reasonable  especially  when  it  is  realized  that 
in  most  studies  the  momentum  matrix  elements  arc 
assumed  constant.  The  oscillator  strength  for  di 
red  calcium  Is  transitions  used  in  the  calculation 
of  f 2 is  given  in  Fig.  10.  The  experimental  Is  ab- 
sorption and  emission  data  are  reproduced  in  Fig 
11  from  the  work  of  Finkelshteyn  and  Nemnonov  52 


The  broken  line  represents  the  calcium  emission 
curve  after  corrections  are  made  for  the  presence 
of  CaO.  The  Fermi  level  is  found  from  the  inter- 
section of  the  emission  and  absorption  bands. 

F Fermi  surface 

The  description  of  the  shape  of  the  Fermi  sur- 
face has  been  one  of  the  most  difficult  challenges 
of  theoretical  calculations  on  metals  Our  attempt 
to  predict  de  Haas -van  Alphen  orbit  areas  are 
summarized  in  Table  III  We  give  results  for  both 
the  uncorrelated  and  correlated  Hartree-Fock 
bands.  Also  presented  are  the  recent  experimental 
results  obtained  by  Jenkins  and  Datars53  and  the 
results  obtained  from  an  APW  (a  i ) calculation  41 
Percentage  errors  of  the  theoretical  results  from 
the  experimental  results  are  given  m parentheses. 
In  Fig.  12  we  present  the  de  Haas-van  Alphen  or- 
bits corresponding  to  those  listed  in  Table  III  The 
solid  lines  indicate  orbits  obtained  from  uncorrt 
lated  Hartree-Fock  bands  and  the  broken  lines  in- 
dicate orbits  obtained  from  correlated  Hartree- 
Fock  bands. 

Ill  DISCUSSION 

A Pressure- induced  electronic  tranutton* 

One  of  the  most  interesting  properties  of  calcium 
is  its  high-pressure- induced  anomalies  in  electri- 
cal conductivity  Suggestions  that  those  anomalu  s 
exist  were  first  made  by  Altmann  and  Cracknel  1 
Almost  simultaneously  Stager  and  Drukamer55  ex- 
perimentally confirmed  the  predictions  The  ex 
peri  mental  resistance  versus  pressure  results56 
are  summarized  in  F:g.  13  for  two  temperatures 
There  is  an  increase  in  resistance  with  increasing 
temperature,  as  expected  for  a metal,  at  all  pres 
sures  except  in  the  region  300-400  kbar  In  this 
region  calcium  acts  as  a semiconductor  with  r<  - 
spect  t its  temperature  dependent  c on  resistance 
The  phenomenon  has  been  at  least  qualitative I\  ex- 
plained by  most  calculations  on  calcium  as  being 
due  to  metal -lo-semimetal -to -meta  1 electronic 
transitions  caused  by  increasing  pressure  We 
refer  the  reader  to  the  recent  paper  bv  Met  affrev. 
Anderson,  and  Fapac  oust  ant  opoulns41  toi  a review 
of  lK)th  the  experimental  and  theoretical  w<<rks  n 
calcium.  We  will  use  their  work  as  \ standard  <•! 
previous  work 

Both  the  Hartree-Fock  bands  (Fig  1)  and  the 
Hart  roe  - Fock  bands  with  < • rrelatun  t • t re<  turns 
(Fig  4)  support  the  niefaJ-f*>-«srmimef al  t niota. 
electronic  transition  explan.it inn  1 the  rt  sistano 
anomaly  For  o ti  1.0  the  Ferm;  ;a<  c its 
the  bands  in  such  a wav  that  there  is  a s;.  ml i .»n 
density  of  states  both  almve  and  lu  1 w the  Fc  i mi 
level  (Figs  t*  and  7).  C,i!«  turn  is  thm  l r*  pre 

dieted  to  behave  as  a metal  at  equilibrium  laltice 
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spacing.  The  4s  and  3</  atomic  levels  merge  to 
form  a partially  filled  band  that  possesses  essen- 
tially the  same  structure  (except  for  valence  band 
width)  as  in  previous  studies.  It  should  be  noted 
that,  in  contradiction  with  most  earlier  studies  as 
in  Fig.  5,  the  bands  from  the  first  and  second 
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. 7 Density  of  state*  «>i  valence  and  conduction 

hand*.  • f * • i iwd  from  the  llartree  I k res  ills  i orre«  te  ! 
for  elec  tn  • rnr relation. 


FIG.  s.  Density  of  states  of  calcium  for  equilibrium 
lattice  constant  a0  obtained  using  the  APW  method  and  a 
local  exchange  approximation  (Ref.  41 1. 


Brillouin  zones  do  not  cross  near  the  Fermi  level 
In  fact,  fur  the  uncorrelated  Hartree-Fock  case, 
these  bands  show  an  unusual  parallelism  near  the 
zone  boundary. 

When  the  lattice  spacing  is  reduced  t a 0 9, 
the  parallelism  in  the  Hartree-Fock  bands  Fig  11 
is  removed  by  the  converging  of  the  bands  at  I j 
and  L'z  near  the  Fermi  level  Figure  4 shows  th» 
Hartree-Fock  bands  after  correlation  c »rre»  lions 
have  been  made.  The  density  of  states  surround- 
ing the  Fermi  level  has  diminished  greatlv  in  both 
cases  (Figs.  6 and  7). 

The  metal-to-semi metal  electronic  transition  is 
predicted  t«-  be  complete  at  a lattice  spacing  ■>! 


4 • 


(?£  f * *"• 


96.0  . 4 ^96.8 


lit*.  ' tn  agin.ii>  part  *;ofthc  ntnplcx  Helen  ti  h 
furu  *•  • !■  f •lire'*  aloium  Is  tranMtion*  t‘>-i  ■n*l.tin,n 
I i • • •<  fiiins  f.  r valcn>  I on'  ' . tion  rjiu  irons  *1.0  « 

' •••■  ad*  *•■  < <\ * rhausor’s  n rihod.  I'hc  ■ ale  ha-  !*«•*  • 
'lilt'd  that  experimental  h-rmi  level  • .itched 
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FIG.  10.  Oscillator  strength  for  direct  calcium  Is 
transitions.  Correlation  corrections  for  valence  and 
conduction  electrons  have  been  made  by  Overhauser's 
method.  The  scale  has  been  shifted  so  that  the  experi- 
mental Fermi  level  is  matched. 


a a0  0.  8 In  both  the  uncorrelated  and  correlated 
Hartree-Fock  cases,  the  Fermi  level  cuts  the 
bands  at  only  a single  point  in  the  irreducible 
wedge.  The  density  of  states  is  accordingly  in- 
finitely small  at  the  Fermi  level.  At  this  lattice 
spacing  the  bands  from  the  first  and  second  Bril- 
louin  zones  have  converged  and  crossed  along  the 
direction  IV-/..  The  surfaces  of  the  two  zones 
make  contact  at  only  this  single  point  in  the  irre- 
ducible wedge  and  consequently  the  Fermi  surface 
must  pass  through  this  point  in  order  to  match  the 
electrons  in  the  second  zone  with  the  number  of 
holes  in  the  first. 

It  is  interesting  to  note  that  the  uncorrelated  and 
correlated  Hartree-Fock  density  of  stales  for 
a <i0-  0.  8 shows  a definite  range  of  energies  (0.  2 
eV)  for  which  the  density  is  negligibly  small  So, 
al  a reduced  lattice  spacing  of  a a0  0.  8,  calcium 
possesses  both  the  property  of  being  a metal  tthe 
Fermi  surface  cuts  the  bands)  and  the  property  of 
a semiconductor  (the  existence  of  a "band  gap”  of 
0 2 eV  in  the  density  of  states  about  the  Fermi 
level).  The  term  "semimetal”  is  therefore  appro- 
priately applied  to  calcium  at  this  lattice  spacing 
We  find  that  our  Hartree-Fock  calculation  correct- 
ly predicts  semiconductor- like  dependence  or  re- 
sistance on  temperature  at  high  pressures 

Although  we  were  unable  lo  obtain  accurate 
bands  for  all  icwith  a lattice  spacing  of  a aa  0 7, 
the  trends  indicate  that  the  bands  at  Xj  will  con- 
tinue to  drop  sufficiently  so  that  Xj  will  lie  below 
the  Fermi  level  and  the  bands  near  the  point  of 
crossing  along  W-L  will  rise  ibnve  the  Fermi  lev- 
el. Since  the  Fermi  surface  will  cut  the  bands  al 
a large  number  of  points,  there  will  be  a signifi 


cant  density  of  states  surrounding  tin  Fermi  level 
and  calcium  will  return  to  a metal. 

The  lattice  spacings  at  which  the  electronic- 
transitions  occur  can  be  interpolated  from  a plot 
of  the  correlated  Hartree-Fock  energies  X3.  H j. 

Z.j,  and  F F as  a function  of  a a0  as  in  Fig.  14  The 
metal -to- semimetal  transition  occurs  at  approxi- 
mately a <i0  0 82  when  and  it  3 converge  lo  the 
same  energy  {F  F)  The  semimetal  - to- metal  tran- 

sition at  approximately  a <i0  0.7  may  noi  lx-  accu- 
rate due  to  linear -dependence  problems  mentioned 
earlier. 

The  first  transition  at  a o0  0 82  can  be  com- 
pared with  the  APW  value41  of  0 93  and  the  "ex- 
perimental" value  of  0.875  determined  by  Altmann, 
Harford,  and  Blake5’  using  an  equation  of  stale 
Our  value  of  a n0  0 725  for  the  second  transition 
can  be  compared  with  the  APW  value  of  0 8 The 
correlated  Hartree- Fock  bands  predict  electronic 
transitions  at  smaller  lattice  spacings  than  docs 
the  APW  bands,  but  both  are  in  about  67  error 
with  the  "experimental"  value 

Optical  properties 

The  optical  spectra  of  crystalline  solids  art 
primarily  dej)endent  on  the  density  of  states  of  the 
Ixands  involved  in  the  transition  In  some  regions 
of  the  spectra  transition,  matrix  elements  can 
and  do  significant  lv  enhance  or  depress  peaks  in 
the  density  of  states  and  therefore  cannot  lx  ig- 
nored when  calculating  emission  aixi  absorption 
spectra.  We  rigorously  include  dipole  transit.  >n 
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TABLE  111.  Experimental  u.ik.1  theoretical  de  Hua>-\an  Alphen  dau  for  a a v 1.0.  Experimental 
results,  arc  from  Jenkins  and  Datar>  tRcf.  Iheoretical  results  uie  from  our  Hut  ti  ee-1  ock 


OIF),  Ilartree-Fock  with  correlation  corrections  iHl  Ac»  and  from  Iht  Met 'afire\  . Anderson,  and 
Papaconstantopoulos  augmented-planc-wave  1APVV1  Rel.  11  > ealculatio!..-'.  Pc r ventage  c i rors  ft<  n 
experiment  are  given  in  parentheses. 


Experiment 

HF 

HF  -*  Ee 

APW  ig  - 2 3 1 

Orbit 

B 

/>  do-’  G"1 

1 p|104G1 

.4l'2»  a';] 

.4|<2»  «>•] 

.4|I2-<,i!] 

.4]t2-  <7';i 

u 

Uoo) 

0.7543 

1275 

0.09584 

0.043  1557) 

0.  049  <49 " 1 

0.  12  125  - 

6 

llluj 

0.  5b 1 1 

1720 

0.1293 

0.10  l23  ‘ 1 

J.  10  1 23  " 1 

0. 05  <61  t 

> 

lliu] 

3.077 

325 

0. 12443 

0.  0032  t97  T l 

11.  u 'loo7 » 

0.009  '93  » 

6 

1110] 

0.7*74 

1270 

0.09546 

0.  059  t6. 8 ' ) 

0.  093  <2.  6%> 

u.  15  < 57  » 

matrix  elements  in  our  calculation  of  c 2>  the  imag- 
inary {>art  of  the  complex  dielectric  function. 

The  experimental  results  (Fig.  11)  show  a Is  - 
valence  emission  band  having  a width  exceeding 
7 eV.  The  experimental  2/>-valence  emission 
band58  is  essentially  identical  in  every  respect.  A 
3p -valence  emission  band  spectrum  obtained  by 
Kingston,59  however,  has  a width  of  3 eV  Since 
the  Is  band  is  flat,  the  emission  band  width  must 
lx*  due  to  the  valence  band  width,  assuming  elec- 
tron-hole interactions  atxl  local  field  effects  are 
negligible. flJ  The  Hartree-Fock  valence  band  width 
for  a fi0  1. 0 (Fig.  1 ) exceeds  13  eV  and  thus  is 
greater  than  experiment.  This  is  consistent  with 
the  results  obtained  m the  cases  of  the  alkali  ha- 
lides.15 the  rare  gas  solids,15,16  and  beryllium.17 
However,  when  electron  correlation  corrections 
are  made,  good  agreement  with  experiment  is  ob- 
tained.15 This  is  also  true  in  the  case  of  calcium 
since  the  correlated  Hartree  Fnck  bands  for  a n0 

1 0 (Fig  4)  show  a valence  band  width  of  approx- 
imately b eV  This  compares  favorably  with 
two52, 58  of  the  three  existing  experimental  emission 
curves  especially  when  one  considers  the  extent  of 
the  low -energy  tails  on  both  the  experimental  data 
and  on  the  calculation  of  t2  (Fig  9)  It  is  interest- 
ing to  note  that  essentially  all  calculations  employ- 
ing a local  exchange  approximation  (see.  e g.  , 

Fig.  5)  yield  a valence  band  width  of  about  3 eV 
which  compares  favorably  with  the  one59  remaining 
experimental  result. 

The  shape  of  the  valence -Is  omission  spectra  as 
predicted  bv  >ur  calculated  curve  is  somewhat 
different  than  that  experimentally  observed.  The 
peak  tust  belnw  the  Fermi  level  is  very  close  to 
the  Fermi  level  and  the  tail  toward  lower  energies 
is  more  skewed  The  effect  of  the  oscillator 
strength  1 Fig  10 1 when  included  with  the  density 
i »f  states  (Fig  7)  to  form  t z is  seen  to  l>e  a grad- 
ual, almost  linear,  enhancement  of  the  spectrum 
from  the  low  energy  unset  t within  0.  3 < V of  the 
Fermi  level  From  ttiat  point  t<>  the  Fermi  level 
the  oscillator  strength  falls  abrupt  Iv  Although  the 
transitions  involved  are  from  a 1 band  to  an  s- 

1 44 


and  or  rf-like  valence  hand,  and  the  atomic  selec- 
tion rules  would  predict  zero  oscillator  strength, 
there  are  a significant  number  of  points  in  k space 
away  from  T which  do  allow  nonzero  oscillator 
st  rengths . 

Our  agreement  with  the  experimental  absorption 
data  is  less  apparent.  However,  there  is  a re- 
markable agreement  lor  energies  above  the  Fermi 
level  between  the  correlated  Hartree- FocK  density 
of  states  l Fig.  7).  that  obtained  from  an  APW  cal- 
culation with  a local  exchange  approximation  (Fig. 

61,  and  a recent  Karringa-Kohn-Rosioker  iKKJ?) 
calculation81  also  employing  a local  exchange  ap- 
proximation. The  only  significant  differences  arc 
a smaller  peak  just  above  EF  and  a greater  dis- 
tance between  peaks  of  about  12"  in  the  correlated 
Hartree-Fock  case. 

The  calculation  «*f  does  not  show  the  broad 
band  exhibited  in  the  experimental  absorption  spec- 
trum. The  oscillator  strengths  for  this  region  of 
the  spectrum  are  rather  small  and  depress  the 
peaks  present  in  the  density  of  states.  Theri  are 
two  structures  on  the  broad  band,  lying  at  about 
4038.3  and  4041  7 eV  We  associate  the  first  and 
second  peaks  seen  in  our  calculation  of  * 2 with 
these  structures  since  the  absolute  positions  of 
the  peaks  are  correct  within  2 eV  a id  the  distance 
between  them  is  correct  within  0 3 eV 

There  appear  to  Ik-  two  possible  interpretations 
of  the  origin  of  the  broad  band  The  first  is  that 
our  inclusion  of  only  dipole  matrix  elements  is  a 
poor  approximation,  since  large  ph’t«>n  energies 
are  involved  and  t hi  approximation  1 

is  not  true  Wi  is  the  radius  >f  final  1-el  charge 
density,  k is  the  wavevertor  "f  ph>  ton)  The  tran- 
sitions involved  are  from  * to  s bands  or  *•  tod 
bands  and  therefore  havi  small  dipole  oscillator 
strength  Higher  multipole  transitions  mav  lie  of 
considerable  imp-nance  The  second  interpret.! 
tion  of  the  origin  of  the  broad  band  Is  simply  that  it 
is  due  to  multiple  band  - to -hand  exi  nations,  collet 
live  phonon  excitations,  nr  electron -hole  inter  act  ions 

It  is  interesting  t"  note  a very  recent  study  »•! 
the  Is  absorption  &|n  1 trum  In  McCaffrey  and  Papa 
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coru>tantopoulo8U  usint  their  computed  AI>W  bands: 
the  bands  we  have  been  using  as  a standard.  Al- 
though their  density  of  states  agrees  remarkably 
well  with  ours,  the  oscillator  strength  and  optical- 
absorption  spectrum  significantly  differ  from  ours. 


1 10.0  .J 


FIG.  13.  de  Maa.s-van  Alphen  t»,  d,  >.  A orbits  ut 
« ul<  mm  I«»r  n 1 0 S*» ltd  linen  indu  ate  « t ints  ot> 
tamed  from  Martree-Fock  bands,  broken  tines  indu  .t t« 
orbits  obtained  from  correlation  air  ret  ted  Hartm  1 «•<  k 
bands . 


P ( h.iobof  I 


FIG.  13.  Resistance  versus  pressure  lor  calcium 
Reproduced  from  Ref.  s6. 

This  is  probably  due  almost  ex<  lusivelv  to  the 
manner  in  which  the  dipole  matrix  elements  art 
approximated  in  the  APW  case.  The  elements 
were  determined  by  evaluating  the  matrix  elements 
of  the  position  vector  ? rather  than  the  matrix  ele- 
ment of  the  gradient  operator  V This  umld  not 
normally  have  been  an  approximate  n except  that 
the  Is  Bloch  eigenfunction  was  rej  laced  by  a 1 
atomic  orbital.  The  appruxnnati  ns  also  included 
integration  only  within  the  APW  sphere. 

The  APW  oscillator  strength  was  found  (<<  lx*  a 
very  smooth  function  of  energy  and  m<  out  "in  tally 
increasing  in  contrast  with  our  results  shown  in 
Fig  10  Notwithstanding  the  approximations,  the 
APW  was  found  to  match  experiment  mu<  h lx  tter 


l 
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than  the  present  cast*  in  that  the  broad  band  on  the 
high -energy  side  was  obtained. 

(.  Per  mi  surface 

Since  the  correlation  corrections  determined  by 
means  of  Overhauser's  simplified  method  are 
small  for  electrons  near  the  Fermi  energy,  there 
is  little  difference  in  the  predicted  de  Haas -van 
Alphen  orbit  areas  between  the  results  predicted 
by  the  uncorrelated  and  the  correlated  Hartree- 
Fock  bands  (Table  ID  and  Fig.  12)  Our  results 
are  no  better  than  those  obtained  by  means  of  the 
method  employing  local  ?xchange  approximations 
(see  Table  III),  and  so  our  Hartree-Fock  calcula- 
tions have  failed  in  an  area  where  accurate  results 
have  consistently  remained  elusive.  The  experi- 
mental data  suggests  that  the  Fermi  surface  in  the 
first  Bnllouin  zone  is  made  up  of  interconnecting 
arms.83  The  Hartree-Fock  results  predict  a con- 
nected Fermi  surface,  but  the  cross  section  at  the 
point  of  connection  (area  of  orbit  >)  is  97^  too 
small.  Milking  correlation  corrections  only  serves 
to  disconnect  the  Fermi  surface  (area  of  orbit  > 
becomes  zero). 

Our  prediction  of  the  constant  > [Eq  (17)]  ap 
pearing  in  the  specific-heat  expression  also  has 
an  error  com  parable  to  those  obtained  by  means 
of  local  exchange  approximations.  As  given  in 
Table  II  we  obtain  a value  of  y 0.  73 
(mJ  K^mole"1)  for  the  Hartree-Fock  case  and 
y 2.46  (mJ  K*2mole"1)  for  the  correlated  Har- 
tree-Fock case.  These  values  can  be  compared 
with  the  experimentally  obtained  value  of  2.9 
(m.J  K 2 mole'1)64  after  inclusion  of  an  enhance- 
ment factor65  of  1.  2H  due  to  electron-phonon  inter- 
actions. Our  estimates  of  > then  become  0.93  and 
3.  15,  respectively,  with  errors  of  6tt  and  9'~ 

We  see  in  calculating  this  physical  constant  that 
the  small  correlation  correction  to  electrons  near 
the  Fermi  surface  is  significant. 

It  should  be  noted  that  the  calculation  of  de 
Haas-van  Alphen  areas  for  calcium  is  very  sensi- 
tive to  the  position  of  the  Fermi  level  due  to  the 
flatness  <>f  the  bands  there  Although  no  qualita- 
tive estimates  have  been  made,  we  observe  that  a 
slight  lowering  of  the  Fermi  level  (which  was  de- 
termined42 with  an  error  *1  1 ) would  improve  IN 

predicted  areas  of  orbits  o . > and  * due  to  the  re- 
sulting increase  in  si/e  of  th  se  areas  However, 
the  resulting  area  of  the  t bit  ^ would  be  reduced 


and  the  resulting  value  for  the  constant  > appear- 
ing m the  specific-heat  expression  would  be  in- 
creased, both  changes  being  in  a direction  oppo- 
site to  that  required  for  improvement.  Obviously, 
the  positioning  of  the  Fermi  level  is  not  the  sole 
contribution  to  the  errors  contained  in  our  calcu- 
lated de  Haas-van  Alphen  data  Approximations 
such  as  the  Ic-independent  electron-correlation 
corrections  must  surely  make  non-negligible  con- 
tributions . 

V CONCLUSIONS 

In  this  paper  we  have  obtained  an  ab  initw  band 
structure  for  calcium  in  the  self-consistent  Har- 
tree-Fock approximation.  Correlation  correc- 
tions are  made  by  means  of  Overhauser's  simpli- 
fied method.  This  method  of  calculation  produces 
good  results  from  an  experimental  point  of  view 
and  employs  no  adiustable  parameters  We  are 
able  to  observe  the  metal-to-semimetal-to-metal 
electronic  transition  with  increasing  pressure, 
match  the  valence  band  width  with  the  experimental 
emission  spectra,  and  make  preliminary  identili 
cation  of  structures  observed  in  tin  absorption 
spectra  by  means  of  a rigorous  calculation  of  <2 
The  details  of  the  Fermi  surface  as  indicated  l>v 
de  Haas-van  Alphen  data  have  remained  elusive  — 
we  predict  areas  which  have  large  percentage  er- 
rors when  compared  to  experiment 

We  finally  conclude  that  ab  initio  methods  are  a 
practical  way  of  studying  band  structures  in  gen- 
eral. We  art  able  t > compute  the  bands  at  a large 
number  of  p mts  in  the  Bnllouin  zone  due  to  the 
efficiencies  of  local  orbital  and  LCAO  methods 
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